{* Максимальное из двух чисел *}

Unit PROC_1;
Interface
Implementation
Begin
 writeln('Максимальное из двух чисел');
End.

Program proc_1;

Uses proc_1.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  a : byte;
  b : byte;
  c : byte;
  d : byte;
  z : byte;
  x : byte;
  y : byte;
Function max(x, y : byte) : byte;
Begin
  If x > y Then
    max := x
  Else max := y;
End;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Vvedite chisla');
  readln(a, b, c, d);
  x := max(a, b);
  y := max(c, d);
  z := max(x, y);
  writeln('z = ', z);
  readkey; {* Нажмите любую клавишу *}
End.