Ввести с клавиатуры 2 числа a и b. если a = b; вывести на экран «a = b». если a > b; вывести на экран «a > b». если a < b; вывести на экран «a < b».

Var
a,b:integer;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
if a>b then
writeln('a>b')
else
if a<b then
writeln('a<b')
else
writeln('a=b');
end.