Question

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

Answer 1

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.