Function min(a, b:Integer): Integer;
Begin
if a > b then
min := b
else
min := a;
end;
Begin
Write(min(1, min(2, min(3, min(4, min(5, min(6, min(7, min(8, min(9, 10;
end.
Объяснение:
Чтобы найти минимум из нескольких значений, нужно передавать аргументом функции эту же функцию, но со следующим значением. На русском: Мы сравниваем не 8, 9 и 10, а 8 и результат сравнения 9 и 10 (результат получаем с функции)
