Составьте программу заполнения одномерного массива пятью элементами, которые вычисляются по формуле a(i)=(2i-1)/(2i+1)

Program n1; 
var a:array[1..5] of real; 
i:integer; 
begin 
for i:=1 to 5 do 
begin 
a[i]:=(2*i-1)/(2*i+1); 
write(a[i],'  '); 
end; 
end.

Const n = 5;
var a:array[1..5] of real;
  i:integer;
begin
  for i:=1 to n do begin
    a[i]:=(2*i-1)/(2*i+1);
    write(a[i]:8:3);
  end;
end.

Тестовое решение:
   0.333   0.600   0.714   0.778   0.818