Сформировать массив 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.