Задача №8871 Більше з трьох

На вході програми маємо три цілих числа a, b і c, записаних в одному рядку через пропуск. Потрібно вивести більше з них.

Вхідні дані:

В єдиному рядку записані через пропуск три цілих числа a, b і c.

Вихідні дані:

Відповідь до задачі.

Розв’язок

function Max(a, b: integer): integer;
begin
  if a > b then
    Max := a
  else 
    Max := b
end;

function Max(a, b, c: integer): integer;
begin
  Max := Max(Max(a, b), c)
end;

var a, b, c: integer;
begin
   readln(a, b, c);
   writeln(Max(a, b, c))
end.