Вычислить значения функции y=cos3x+7 на отрезке от 9 до 25 с шагом 1. Полученные значения функции записать в массив и вывести на экран. паскаль

varx,y:real;i:integer;F:Array [9..25] of real;beginFor i:=9 to 25 do beginF[i]:=Cos(3*i)+7;Write(' Y= ',F[i]:0:3);end;end.