Question

Помогите решить, пожалуйста.
Составить блок-схему.Сравнить между собой значение величин х и у. Вывести на печать результат сравнения в виде "x>y" или "x=y".

Answer 1

Var
x,y:integer;
begin
writeln('Введите х и у');
readln(x,y);
if x>y then writeln(x,'>',y);
if x<y then writeln(x,'<',y);
if x=y then writeln(x,'=',y);
end.