Даны два числа. Вывести порядковый номер меньшего из них. Например, а=10 и b=40, тогда n=1

var   a, b: real;  //Два действительных числа   begin   writeln('Введите два числа');   readln(a, b);  //Вводим 2 любых числа   if a < b then writeln('n = 1');  //Если а < b, тогда печатаем 'n = 1'   if b < a then writeln('n = 2');  //Если b < a, тогда печатаем 'n = 2'   if a = b then writeln('Числа равны');  //Если a = b, тогда печатаем 'Числа равны' end. Отметь решение как лучшее)