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

Pascal:

program zadacha;

var a, b: word;

BEGIN

readln(a, b);

id a<b then writeln('1')

else writeln('2');

readln

end.

(упс, я ошибся. Сейчас исправил.)

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.

Отметь решение как лучшее)