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

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.