Заполните массив a(25) по формуле a(i)=5*i-i/3

Var
a:array[1..25] of real;
i:integer;
begin
for i:=1 to 25 do
5*i-i/3;
for i:=1 to 25 do
write(a[i]:5:2);
end.