Какие числа выведет экран?
x:=1; y:=2;
if x x:=x*y;
if x>y then y:=y*x
else
begin
y:=3; x:=y;
end;
write(x,y);

33 (Пишется слитно, так как между x и y нет разделов)