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

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

        if a < b then

    begin

      else

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

      end;

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

    begin

          writeln('2')

     

    readln(a,b);

        writeln('1')

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

      a, b:real;

    end.

      if a > b then

    end;

  • var

    end.

  • var a,b:integer;

          writeln('0');

        else

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

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