Циклические алгоритмы найти сумму вида 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.