Сформировать массив b b1: =sin1 ,b2: =cos2,b3: =sin3,b4: =cos4 n=10

Const
  n = 10;
var
  b: array [1..n] of real;
  i: byte;
begin
  for i := 1 to n do
  begin
    b[i] := cos(i);
    writeln('b[',i,'] = ', b[i]);
  end;
end.