uses crt;
var a, b, c, i, n :integer;
s :real;
begin
clrscr;
writeln ('Введите числитель последней дроби, превышающий 1');
readln (n);
for i:=2 to n do
s:=s+i/(i+1);
writeln ('Сумма дробей с точностью до 10 знаков = ', s:0:10);
end.
P.S. Надеюсь на благодарность и лучший ответ.