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

Question

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

Answer 1

var a, b:real;

begin

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

readln(a);

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

readln(b);

if a writeln(1) else

writeln(2)

end.