функцию переделать на процедуру

[morgan996]

ребята, пожалуйста помогите. Не могу решить задачу...помогите пожалуйста.


Нужно с помощью процедур решаить:

Ввести 4 натуральных числа a,b,c,d (d>a). Вычислить по формуле значение функции: y=(a!+b!+c!)/(d-a)!


вот мои наработки, но я решал с помощью функций. Помогите переделать под процедуры...


program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a,b,c,d: integer;
function factorial (k: integer): longint;
var i,f: longint;
begin
f:=1;
for i:=1 to k do
f:=f*i;
factorial:=f;
end;
begin
writeln ('Vvedite chisla a,b,c,d (d>a)');
readln (a);
readln (b);
readln (c);
readln (d);
writeln ((factorial(a)+factorial(b)+factori al(c))div factorial (d-a));
readln;
end.

ТУТ ВСЕ РАБОТАЕТ, ПРОСТО НУЖНО ПЕРЕДЕЛАТЬ ПОД ПРОЙЕДУРЫ...ПРОШУ, ПОЖАЛУЙСТА, ПОМОГИТЕ

[dr.Chas]

function fact (k: integer; var factorial: longint);
var i,f: longint;
begin
f:=1;
for i:=1 to k do
f:=f*i;
factorial:=f;
end;

fact({input}, {output});

[Terran]

Немного дополню:

uses
SysUtils;
var
a,b,c,d: integer;
s,y,i,p: Longint;
Procedure factorial(k: integer; Var T: longint);
var
i,f: longint;
begin
f:=1;
for i:=1 to k do
f:=f*i;
T:=f;
end;
begin
writeln ('Vvedite chisla a,b,c,d (d>a)');
readln (a);
readln (b);
readln (c);
readln (d);
factorial(a,s);
factorial(b,y);
factorial(c,i);
factorial(d-a,p);
writeln((s+y+i)div p);
readln;
end.