Судя по всему человек вообще слабо въезжает (без обид) так что лучше полностью я думаю

Код
uses crt;
var
m,n : integer;
An : extended;
Begin
clrscr;
write('Input M ');readln(m);
writeln;
for n:=1 to m do
begin
An:=1/(n+4);
writeln('a[',n,']=',An:1:4);
end;
readln;
end.
ЗЫ
давай остальные задачи, у нас ребята на форуме бравые, в миг размахаем

)