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