Задача впринципе лёгкие
Вычислить сумму (числа дробные) 2/3, 3/4, 4/5 ....... 10/11

Я сделал так но не правильно:

Program Ex1;
Uses crt;
Var p,f: Integer;
S:Real;
Begin
Clrser;
S:=0;
For p:=2 to 10 do;
For f:=3 to 11 do;
S:=S+p/f;
WriteLn(‘Сумма равна’,S);
ReadLn;
END.

Зачем 2 цикла? Надо обойтись одним:

s := 0;
For i := 2 to 10 do
  s := s + i / (i + 1);

volvo Большое спавсибо