Program fact;
uses crt;
var n,i,s:integer;
beginS:=1;
write('Введите число - ');
readln(n);
If n<=0 then<br>write('Ваше число либо отрицательное, либо равно нулю. Факториал 0!=1')
else begin
for i:=1 to n do
S:=s*i;
write('Факториал Вашего числа равен - ',s);
end;
end.