Циклические алгоритмы

Найти сумму вида 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.