Написать функцию, которая получает введенные числа в качестве параметров
 

Пользователь вводит два вещественных числа: a и d, а также целое число n. Для вычисления характеристик арифметической прогрессии (a – первый член, d – разность, n – номер искомого члена прогрессии) составить функцию, которая получает введенные числа в качестве параметров. Функция находит n-й член и сумму первых n членов прогрессии и возвращает их в качестве двух других параметров.
Результат, который возвращает сама функция, должен позволять отслеживать следующие случаи (зависящие от значений введенных чисел): неположительный номер n, все члены прогрессии равны (вырожденный случай), члены прогрессии имеют разные знаки.

При многом благодарен

Забыл написать,надо написать в Pascal

ап!tehno015