Question

Надо написать программу которая сравнивает два числа, введенных с клавиатуры. Программа должна указать, какое число больше или если числа равны вывести соответствующие сообщение. Ниже представлен рекомендуемый вид экрана во время работы программы.Введите в одной строке два целых числа и нажмите . ->34 67

Answer 1

Program xxx;
var
a,b:integer;
begin
writeln('Введите два целых числа...');
Readln(a,b);
if (a>b) then writeln('Первое число больше второго');
if (a<b) then writeln('Второе число больше первого');
if (a=b) then writeln('Числа равны');
end.

Answer 2

Var a,b:integer;
begin
writeln('Введите в одной строке два целых числа и нажмите <Enter>');
readln(a,b);
if a>b 
 then writeln(a,' > ',b)
 else if a<b then writeln(a,' < ',b) else writeln('Числа равны');
end.

Пример:
Введите в одной строке два целых числа и нажмите <Enter>
34 67
34 < 67