Verified answer

var n: integer;

a: real;

begin

   write('Введите n: '); read (n);

   for var i:=1 to n do

   begin

       a:=i/(i*i+1);  write(a, ' ');

   end;

end.