1) Дан массив целых чисел. Найти удвоенную сумму положительных элементов.
2)Дан Массив целых чисел из 33 элементов, заполненный случайным образом числами из промежутка [0,95]. Вывести на экран все элементы , кратные 13.

____
Все это через FreePascal.
Заранее спасибо!