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

var  a,b: integer;begin writeln('Введите последовательно два числа'); readln(a); readln(b); if a<b then  writeln('меньшее число под номером 1') else  writeln('меньшее число под номером 2');readln; {задержка}end.{Тест}Введите последовательно 2 числа1015Меньшее число под номером 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 91Введите два числа 8.5 -6.42Введите два числа 2 2.00000В последнем случае 0 означает, что числа равны и нет номера большего числа.