Элементы массива вычисляются по формуле: в ( i ) = sin i + cos i. написать программу, которая выводит значения сорока элементов этого массива в строчку.

Const
n=40;
var
a:array[1..n] of real;
i:integer;
begin
for i:=1 to n do
begin
a[i]:=sin (i) + cos (i);
write(a[i],' ');
end;end.