С клавиатуры вводятся два числа. Составить программу сравнивающую эти числа и в...

Question

С клавиатуры вводятся два числа. Составить программу сравнивающую эти числа и в зависимости от результата сравнения выводящую на экран нужный знак.Например: 3<5 или 3=3 или 3>2. Процедуру WRITE для вывода результата разрешается использовать только один раз.

Answer 1

Var a,b:integer; c:char;
begin
readln (a,b);
If a>b then c:='>';
If a=b then c:='=';
If awriteln(a,c,b);
end.