
Входные данные Даны два целых числа, каждое записано в отдельной строке. Выходные данные Программа должна вывести число 1, если первое число больше второго, число 2, если второе больше первого, или число 0, если они равны.
входные данные1 2 выходные данные2

Program numbers;
var
m, n : integer;
begin
readln(m);
readln(n);
if m>n
then writeln(1)
else
if m then writeln(2)
else writeln(0);
end.
Оцени ответ