Дано 2 целых числa. Вывести большее из них.
Program if_6-
Var a,b:integer-
Begin
Writeln(‘Введите число’)-
Readln(a)-
Readln(b)-
If a>-b then Writeln(‘Наибольшее ‘,a) else Writeln(‘Наибольшее ‘,b)
Readln-
End.