Информатика.Оставить программы задач.

Задача 1 ( ответ 5050)

program Hello;

var i, sum : Integer;

begin

for i := 1 to 100 do sum := sum + i;

writeln(sum);

end.

Задача 2 (ответ 105)

program Hello;

var i, sum : Integer;

begin

for i := 1 to 14 do sum := sum + i;

writeln(sum);

end.