Program if_7-

Var a,b:integer-

Begin

Writeln(‘Введите число’)-

Readln(a)-

Writeln(‘Введите число’)-

Readln(b)-

If a&lt-b then Writeln(‘Наименьшее 1-е’) else Writeln(‘Наименьшее 2-е ‘)

Readln-

End.