Циклические алгоритмы Найти сумму вида s=1/2+2/3+3/4+...+19/20 Найти сумму вида 1+4+9+...+100 нужны схемы алгоритмов

1) В цикле по значениям переменой i от i=1 до i=19 выполнять сложение вида: s=s+i/(i+1) на паскале это выглядит так: var s:real; begin      for var i:=1 to 19 do s:=s+i/(i+1);     writeln('Ответ: ',s); end. 2)  сложная прогрессия какая-то... могу предположить, что вида: 1+2*(i-1)+s_i-1 т.е.     1) 1+2*(1-1)+0=1    2) 1+2*(2-1)+1=4    3) 1+2*(3-1)+4=9... тогда на паскале алгоритм: var s,si:real; begin     for var i:=1 to 10 do begin        si:=1+2*(i-1)+si;        s:=s+si;     end;     writeln('Ответ: ',s); end.