Procedure Faktorial ( Pemrograman Terstruktur )

program coba; uses crt; var z,a : integer; procedure faktorial; begin if z = 0 then begin; z := 1 end else if z = 2 then begin; a:=1; end else z := z*(z-1)*a; end; begin clrscr; z:= 4; a := z - 2; faktorial; writeln (z); readln; end.