فاکتوریل با پاسکال

[sh.saeedi]

با سلام
من تابع بازگشتی که برای فاکتوریل است رو میدونم ولی یه برنامه می خوام که دو تا عدد از ورودی بگیره فاکتوریل دوتاشو بده.طرز نوشتن کدش رو نمیدونم. اگه کمکم کنین ممنون میشم.

[Hamid.Kad]

procedure Cal_Facts(n1,n2:integer;var fact1:integer;var fact2: Integer);
var i:integer;
begin
for i:=1 to n1 do fact1:= fact1*i
for i:=1 to n2 do fact2:= fact2*i
end;

n1,n2 بعنوان ورودی هستند و جوابها در fact1,fact2 ذخیره می شوند