нужно в паскале написать программу. пожалуйста

program n1;
var s:real;
k:integer;
begin
readln(k);
s:=0;
    for i:=1 to k do begin
        s:=s+(1/(4*k*k-1));
    end;
writeln(s);
end.