Паскаль. низходящий метод.

[Pro_100]

Не получается составить программу.. Помогите, если можете!!

задание. Используя метод низходящего проектирования составить программу вычисления функции

p=(xt)!
x=1 (1) 4
n!= 1*2*...*n

t=1,5, если х - четное
t=2, если х - нечетное

Ну как я понимаю тут нужно табулирование функции.

Вначале думаю надо так..

var

x, x0, xN, hX: real;
t, t0, tN, ht: real;

s,p:real;
n: integer

begin
writeln ('Введите x0, xN, hX');
readln ( x0, xN, hX);

writeln ('Введите t0, tN, ht');
readln ('t0, tN, ht');

а дальше незнаю.. да и в этом я не уверен, что правильно написал. подскажите, как там представлять факториал??

помогите,если есть возможность