<span>с. Северный мост
..................................................</span>
Пользовательский интерфейс
Петрова - 1место
Белова-2 место
Комарова-3
Митина-4
Громова-последнее
Не войдут в финал : Комарова, Митина, Громова
Попробуйте такой вариант:
programm one
var n, i: integer;
S: real;
begin
readln(n);
while(i != n)
begin
s := s + 1/((2*n+1)*(2*n+1));
i = i+1;
end;
writeln(s);
readln();
end.