Помогите решить плииз, срочно надо!

Выполнено в PascalABC.Net 3.2, но в Дельфи тоже будет работать, как консольное приложение (если не отрежете директиву {$APPTYPE CONSOLE} ) program MyProject; {$APPTYPE CONSOLE} var   x,y:real;   i,n:integer; begin   Write('n='); Readln(n);   x:=0;   while x<=10.1 do begin     y:=0;     for i:=1 to n do y:=y+cos(i*x);     Writeln(x:4:1, y:15:8);     x:=x+0.5     end; end. Результат n=20  0.0    20.00000000  0.5    -1.98481543  1.0     0.53960857  1.5    -0.95316377  2.0    -0.59425320  2.5    -0.06110708  3.0    -0.98701429  3.5    -0.25343437  4.0    -0.32776330  4.5    -1.08491874  5.0     0.27008214  5.5    -0.94593719  6.0    -2.12947656  6.5    -4.95669330  7.0     0.70952519  7.5    -0.66352911  8.0    -0.89305683  8.5     0.05538722  9.0    -0.88561081  9.5    -0.48561955 10.0    -0.12723985