Форум АНТИЧАТ - Нужно решить типовые задачи по Delphi))

Вот задачи, достаточно простые:
Массивы:
8.В данном массиве целых чисел найти минимальное значение и все номера элементов массива, равных ему.
11.Вычислить произведение сумм положительных и отрицательных элементов массива A[1..N].
18.В данной последовательности чисел найти минимальное значение среди положительных элементов и все номера членов последовательности, равных ему.
21.Составить программу, увеличивающую ненулевые элементы линейного вещественного массива Y[1..N] на 1.
28.Дан массив А[1..N] и число Х. Написать программу, который печатает "ДА", если Х совпадает с одним из элементов данноо массива, и "НЕТ" - в противном случае.
Условия:
1.Решить квадратное уравнение (a#0)

Предусловие:
16.Составить программу, проверяющую, является ли заданное натуральное число палиндромом, то есть таким, десятичная запись которого читается одинаково слева направо и справа налево.

Пост:
3.Числа Фибоначчи (fn) определяется формулами: f0 = f1 = 1; fn = fn = fn-1 + fn-2 при n=2, 3,... Составить программу:
a.определения f - 40-е число Фибоначчи;
b.поиска f - первого числа Фибоначчи, большего m (m>1);
c.вычисления s - суммы всех чисел Фибоначчи, которые не превосходят 1000.

Вложение:
12.Составить программу, печатающую для данного натурального числа k-ю цифру последовательности:
a.12345678910..., в которой выписаны подряд все натуральные числа;
b.14916253649..., в которой выписаны подряд квадраты всех натуральных чисел;
c.1123581321..., в которой выписаны подряд все числа Фибоначчи.

Счетчик:
5.Составить программу вычисления суммы кубов чисел от 25 до 125.

Если интересует стучать 4194206 , всё оплачу..