Паскаль.Процедура

[Ksushka12]

Помогите пожалуйста!Вычислить значение выражения y=x!/(2x)!+(x-1)! ,значение x вводится с клавиатуры.Оформить в виде процедуры.

[Snejnaya]

процедура для вычисления факториала без рекурсии

procedure factorial(x1:integer, var res1:integer)
var i:unteger;
begin
res1:=1;
for i:=1 to x1 do
begin
res1:=res1*i;
end;
end;

основная программа

var x, a,b,c:integer;
     y:real;
begin
readln(x);
factorial(x,a);
factorial(2x,b);
factorial(x-1,c);
y:=a/b+c;
end.

[Ksushka12]

Спасибо большое!

[Ksushka12]

А в основной программе ты случайно writeln не забыла?

[Snejnaya]

я понадеялась, что нужные writeln ты сам как-нибудь вставишь

[Ksushka12]

Спасибо ещё раз