Даны два числа. Вывести порядковый номер меньшего из них

var
  a,b: integer;
begin
 writeln('Введите последовательно два числа');
 readln(a);
 readln(b);
 if a<b then
  writeln('меньшее число под номером 1')
 else
  writeln('меньшее число под номером 2');

readln; {задержка}
end.

{Тест}
Введите последовательно 2 числа
10
15
Меньшее число под номером 1.

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadReal2('Введите два числа');
  var d:=a-b;
  Writeln(d>0 ? 2 : d=0 ? 0 : 1)
end.

Примеры
Введите два числа 5.7 9
1

Введите два числа 8.5 -6.4
2

Введите два числа 2 2.0000
0

В последнем случае 0 означает, что числа равны и нет номера большего числа.