Question

Задачи по информатике написать задачу в паскале. Условия такие: "Даны целые числа х и у. Если х>у, то необходимо найти произведение этих чисел, иначе их частное". Смог написать только так, чтобы находилось произведение, а как сделать "Иначе" я не понимаю. Вот, посмотрите:
Program zadacha;
var x,z,y : integer;
begin
readln (x,y);
If x>y then
z:=x*y
writeln(z);
end.

Answer 1

Program zadacha;

var x,y : integer;

z:real;

begin

readln (x,y);

If x>y then

begin

z:=x*y;

writeln('x*y = ',z);

end

else

begin

z:=x/y;

writeln('x/y = ',z);

end;

end.

else - иначе. Перед этим оператором не ставится точка с запятой.

Answer 2

Program zadacha;

var x,z,y : integer;

begin

readln (x,y);

If x>y then

begin

z:=x*y;

writeln(z);

end

else

begin

z:=x/y;

writeln(z);

end;

end.

else - на русском означает иначе . Можно было переводчиком просто воспользоваться.