как найти сумму чисел на паскале С=1/sqr(2)+1/sqr(20)+...........+1/sqr(200000) ?

var c,a :real; i:integer;beginc:=0;a:=2;for i:=0 to 5 do begin c:=c+1/sqr(a); writeln('a=',a); a:=a*10; end;writeln('C=',c);end. Результат:a=2a=20a=200a=2000a=20000a=200000C=0.252525252525