Пожалуйста посчитайте с программой в паскале

1) var i, s, n:Integer;

begin

s:=0;

readln(n);

for i:=1 to n do

begin

s:=s+i;

end;

writeln(s);

end.

2) var i, s:Integer;

begin

s:=0;

i:=2;

while i <=20 do

begin

s:=s+i;

i:=i+2;

end;

writeln(s);

end.