Составить программу по информатике по программе Pascal ABC

Question

1)Составте программу решения следующей задачи: С первой яблони сорвали одно яблоко, со второй-2яблока, с третьей-3яблока, с четвёртой-4 яблока и т. д и, наканец с пятнадцатой -15 яблок. Сколько яблок сорвали со всех 15 яблонь? 
 
2)Найти произведение чисел 2,4,6,8,10....20

Иван · Accepted Answer

1) 
... 
n:=0; 
for i:=1 to 15 do n:=n+i; 
... 
2) 
... 
n:=1; 
for i:=1 to 10 do n:=2*n*i; 
....