var
i, n: integer;
index: real;
begin
write ('Количество знаков: ');
readln (n);
for i := 1 to n do
index := index + sqrt(i);
write(index);
readln
end.
