Задача №8870 Менше з трьох

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

Вхідні дані:

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

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

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

Розв’язок

function Min(a, b: integer): integer;
begin
  if a < b then
    Min := a
  else 
    Min := b
end;

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

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