Файлы последовательного доступа Опции

[ranger]

Люди, помогите сформировать файл последовательности двадцати чисел, в которой каждый i - й компонент определяется по формуле:

если i<=8 то y=sin(i*PI/8)
если i>8 то y=4cos(i(PI+1))/5

[ranger]

Значит, программа будет выглядеть так:

Код

program l18;
Var
f: Text;
i: integer;
begin

assign(f,'d:\data.txt');
rewrite(f);

for i := 1 to 20 do
 if i <= 8 then writeln(f, sin(i*PI/8))
 else writeln(f, 4*cos(i*(PI+1))/5);
 
close(f);

end.

... еще Нужно определить количество отрицательных значений, содержащихся в сформированном файле...