Дано 2 целых числa. Вывести порядковый номер меньшего из них.
Program if_7-
Var a,b:integer-
Begin
Writeln(‘Введите число’)-
Readln(a)-
Readln(b)-
If a<-b then Writeln(‘Наименьшее 1-е’) else Writeln(‘Наименьшее 2-е ‘)
Readln-
End.