{* Наибольшее двух чисел *}

Unit CHISLA02;
Interface
Implementation
Begin
 writeln('Даны два целых числа. Найти наибольшее.');
End.

Program pas43328;

Uses chisla02.pas; {* Эту строку можно удалить *}
{Даны два целых числа. Выбрать наибольшее.}
Var {* В работе нам потребуются переменные: *}
  a : integer;
  b : integer;
Begin
  writeln('Введите 2 целых числа:');
  readln(a, b);
  writeln; {* Пропускаем одну строку *}
  If a > b Then
    writeln('Наибольшее : a=', a)
  Else writeln('Наибольшее : b=', b);
    readln; {* Приостановка программы. Ожидание Enter *}
End.