Program if_6-

Var a,b:integer-

Begin

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

Readln(a)-

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

Readln(b)-

If a&gt-b then Writeln(‘Наибольшее ‘,a) else Writeln(‘Наибольшее ‘,b)

Readln-

End.