Факториал

Факториал

function fac(n:fload):fload;
var
per,mn:fload;
begin
textcolor(12);
mn:=1;
per:=1;
if n<0
then
writeln('Число должно быть положительное!')
else
if n<>0
then
while mn<=n do
begin
per:=per*mn;
mn:=mn+1
end;
fac:=per;
textcolor(15);
end;