Program Faktorial pada Pascal

uses crt;
function faktor : real;
begin
if bilangan = then
else
faktor := faktor *bilangan;
end;
var
a : integer;
var
n : integer;
begin
clrscr;
write <'Berapa Faktorial ='>; readln;
writeln