Задача №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.