Fakuturelle Funktion? - Hilfe

[porli]

so schaut das ganze halt in pascal aus! dürfat in c so ähnlich sein!

 program faktorielleberrechnen;
uses wincrt;
function faktorielle (zahl:integer):integer;
var i:integer;
begin
     zahl:=1;
     for i:=4 downto 1 do
       begin
         zahl:=zahl*i;
       end;
     faktorielle:=zahl;
end;
var
   zahl:integer;

begin
     writeln('Ergebnis: ',faktorielle(zahl));
end.

is es hp mit kopf alles drum und dran! ohne fehlerüberprüfungen und so zeugs!