(В паскале)(через циклы)

1.Найдите сумму первых 10 слагаемых ряда: S=1/3 + 2/6 + 3/9 + 4/12…

2. Найти сумму 100 слагаемых 1/3+1/4+1/5+… .

program task31056588;

var

 m, n, S: real;

begin

 m := 1; n := 3;

 for var i := 1 to 10 do

   begin

     S := S + (m / n);

     m := m + 1;

     n := n + 3;

   end;

   Writeln(S);

end.

program task31056588;

var

 n, S: real;

begin

 n := 3;

 for var i := 1 to 100 do

   begin

     S := S + (1 / n);

     n := n + 1;

   end;

   Writeln(S);

end.