Практика по языкам программирования

Нужно сделать 2 задания в Delphi. Если не видно на фото задания могу переписать .
1 задание .
Составить блок-схему и программу вычисления значений функции F(x) = (x+1)^2/(x-1)^2
на отрезке [A,B] в точках x1=A+iH, где H=B-A/M . M - заданное число. Данные для ввода ; A=-4.874 ; B=2.045; M=8
Замечание : учесть область определения функции.
2 задание. Рекурсивные процедуры и функции . Вычисления суммы ряда .
Дано математическое выражения k-го члена последовательности где k=1,2,3,.......,n. По заданной формуле члена последовательности с номером k составить алгоритм и программу вычисления суммы членов последовательности двумя способами согласно варианту индивидуального задания .
1) рассчитать сумму первых n членов последовательности (k=1,2,3,.....n.), организовав рекурсивную функцию ;
2) рассчитать сумму всех тех членов последовательности , которые удовлетворяют заданной точности eps (рассмотреть 3 случая eps= 0,01 ; eps=0,001 ; eps=0,0001), организовав процедуру .
Формула 2k/k^2(k+1)(k+3)
если можете пишете могу