Введите два числа a,b.Выведите на экран порядковый номер меньшего из них.
Пример ввода:7 6
Пример вывода:2

program a_1;Var a,b : real;beginwriteln('Введите 2 числа');read(a,b);  if a > b then    Writeln('Число: ' +a+ ' Порядковый номер: 1')    else    Writeln('Число: ' +b+ ' Порядковый номер: 2');    end.