Паскаль подстановка Опции

[Наталька]

подскажите как эту n подставлялась в формулу,или мож я задачу не так поняла?
Вычислить суммы положительных и отрицательных значений функции
Y= cos(n*x ) + sin( n*x ), где n=1,2,...,50

program Bichislit;
uses
crt;
var
y,x:integer;
n:array[1..50]of real;
begin
writeln('введите x= ');
readln(x);
y:=cos(n*x)+sin(n*x);
writeln('y=',y);
end.

[Айра]

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