Mine

program pirma;
function factorial (n:byte):integer;
begin
  if n<2 then   
    factorial:=1
  else
    factorial:=n*factorial(n-1); 
end;

var
  x : byte;
begin
  writeln('Enter a value : '); readln(x);
  writeln(x,'! is ',factorial(x));
end.