Задача:

Код:

program Factorial;
var n:integer;

function Factor(n:integer):real;
 var v:real;
 Begin
 if n in [0,1] then Factor:= 1 else Factor:= n*Factor(n-1);
 end;

begin
 Write('Введите число(0..33): ');
 Readln(n);
 Write('Факториал этого числа равен: ', Factor(n):11:0);
 Readln;
End.