---

program MaxOfFive;
var
  num, max, i: integer;
begin
  writeln('Введите пять чисел:');
  
  // Читаем первое число и принимаем его за максимум
  read(num);
  max := num;
  
  // Проверяем остальные 4 числа в цикле
  for i := 2 to 5 do
  begin
    read(num);
    if num > max then
      max := num;
  end;
  
  writeln('Наибольшее число ', max);
end.