Правильно ли? Проверьте

[Wild_klas]

Нужно вычислить
Мой вариант:

var
  i,j:integer; s:real;
  begin//main
   s:=0;
   for i:=1 to 100 do
   for j:=1 to i do
   begin
    s:=1/2*j+i;
   end;
   writeln ('s= ',s:4:2);
   Readln;
 end.

Кто знает, подскажите правильно ли она работает?

[maxionans]

s := s + 1/(2*j+i);

[Wild_klas]

Забыл, спасибо