[zaliczenie] ciąg trygonometryczny

Cze wszystkim. Mam niespotykany problem. Mam mało czasu a muszę napisać w Pascalu program następującej treści:
"Napisz program obliczający wartość funkcji
y=cos(x)+1/2cos(2x)+1/3cos(3x)+...
dla określonej wartości x z przedziału 0<x< [PI]
przy czym ilość wyrazów ograniczyć do takiej aby wartość funkcji obliczyć z dokładnością E = lub < [10 do potęgi -16].
wynik wydrukować na ekranie w tablicy kolumnowej."
Nie mam pojęcia jak to zrobić dlatego proszę o pomoc. Z góry dzięki!

To raczej proste

const E = 0.0000000000000001 //moze sie nie zgadzac ilosc zer:)

Begin
y:=0:
licz:=0;
writeln('podaj argument x:');
readln(x);
repeat
inc(licz);
tmp:=y;
y := y+licz(cos(1/licz*x)) //zamiast cos wpisz odpowiednia funkcje
until y-tmp >= E
writeln('suma wynosi',y);
end.

no i oczywiscie y,tmp oraz E musza byc liczbami z b.duzym zakresem.

... a jesli chcesz miec wynik w "tablicy kolumnowej" to przed
UNTIL napisz:
writeln(licz,': ',y);