Delphi пикабу помощь пожалуйста;D⁠⁠

1.Найти сумму целых положительных чисел, больших 20, меньших 100 и кратных 3
2.Даны целые числа a1 , ... a50.Получить сумму тех чисел данной последовательности, которые удовлетворяют условию /ai/ < i2 .
3.Даны натуральное число n. Получить f0, f1, fn, где
f[i]= 1/(i2 +1) + 1/(i2 +2) + .+1/(i2 +i +1
Кому не проблематично не могли бы помочь?
Задачи должны быть сделаны на форме.
Завалю все ваши новости плюсами.
З.Ы если сделаю это и сдам преподу эту лабу больше ничего не буду просить помочь на пикабу:D