Question

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

Answer 1

var a,b:integer;
begin
Writeln('Введите два числа через пробел');
Read(a,b);
If a<b then write('1') else write('2');
End.