Дано 2 неравных числа. Вывести на экран порядковый номер наименьшего числа (если меньшее число вводится первым, то вывести "1", в противоположном случае "2")

var a, b:real;

begin

writeln('Введите первое число');

readln(a);

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

readln(b);

if a<b then

writeln(1) else

writeln(2)

end.