Помогите пожалуйста с информатикой?

По информатике задали составить задачи в программе Pascal ABC

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