Заполнить одномерный массив по правилу: 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.