Сумма квадратов положительных элементов Pascal

Условие задачи по программированию на Pascal: «Определить с помощью FUNCTION для каждого массива: Сумму квадратов положительных элементов. Первый массив: K(22); [-3;5] Второй массив: O(31); [-4;4]»

Заказ включает: 1. Постановку задачи 2. Блок-схему алгоритма решения задачи 3. Алгоритм решения задачи 4. Результат выполнения программы 5. Исходный код программы