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

var

  a, b: real;  //Два реальных числа

begin

  writeln('Введите два числа');

  readln(a, b);  //Вводим 2 всех числа

  if a lt; b then writeln('n = 1');  //Если а lt; b, тогда печатаем 'n = 1'

  if b lt; a then writeln('n = 2');  //Если b lt; a, тогда печатаем 'n = 2'

  if a = b then writeln('Числа одинаковы');  //Если a = b, тогда печатаем 'Числа одинаковы'

end.

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

Pascal:

program zadacha;

var a, b: word;

BEGIN

readln(a, b);

id alt;b then writeln('1')

else writeln('2');

readln

end.

(упс, я ошибся. На данный момент поправил.)