Посчитать наименьшее из положительных целых чисел в текстовом файле. Если положительных чисел нет, то вернуть -1. функция принимает в качестве параметра имя файла Name FUNCTION F(NAME:STRING):INTEGER;
Это задача с acmp.ru!
pascal или delphi?
pascal