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 - иначе. Перед этим оператором не ставится точка с запятой.
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 - на русском означает иначе . Можно было переводчиком просто воспользоваться.