Найти n!

Var
  n: Integer;
Function Fact(n: Integer): Real;
begin
  If n<0 Then
  Writeln('Ошибка в задании N')
  Else
  If n=0 Then
  Fact:=1
  Else
  Fact:=n*Fact(n-1)
end;
 
BEGIN
Write('Введите число: ');
Readln(n);
Writeln(n,'!=',Fact(n):0:0);
END.