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

Question

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

Answer 1

var a,b:integer;

begin

readln(a,b);

if (a>b) then writeln('1') else begin

  if (b>a) then writeln('2') else begin

    if (a=b) then writeln('0');

  end;

end;

end.

Answer 2

var

  a, b:real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  if a > b then

    writeln('1')

  else

    if a < b then

      writeln('2')

    else

      writeln('0');

end.