Программа

{ Вычисление факториала }
VAR N:integer;  { Аргумент }
FUNCTION Fact(N:integer):real;  { Функция вычисления факториала }
  Begin
    { Определение значения функции по мат. определению факториала: }
    if N=0 then Fact:=1
           else Fact:=N*Fact(N-1)
  End;
BEGIN
  Write('Введите число '); { Вывод приглашения ввести число }
  ReadLn(N);               { Ввод числа }
  WriteLn(N,'!=',Fact(N))  { Вычисление и вывод факториала }
END.