PASCAL цикл While . a(n)=n/n(n) Решите пожалуйста(((

vari,n: integer;  a:real;begin  n := 1;  readln(i);  while n <= i do  begina:=n/(n*n);      n:=n+1;    writeln(a);  end;end.