Программа будет работать при условии, что указанный файл с целыми числами существует!Function P(name:string):integer;var f:file of integer;a,min:integer;beginAssign(f, name);Reset(f);Read(f,min);while not eof(f) do begin read(f,a); if abs(a)Подробнее - на Znanija.com -