Заполнить одномерный массив по правилу: b по основанию n =sin (n*p/180)

var
  b: array of real := new real [10];

begin
  for i: byte := 0 to length(b) - 1 do
    b[i] := sin(i * pi / 180);

    for i: byte := 0 to length(b) - 1 do
    writeln(String.Format('b_{0} = {1}', i, b[i]));
end.