Программа, вычисляющая факториал числа, введённого с клавиатуры.

Program Factorial;
uses crt;
var i, x, s: integer;
Begin
 clrscr;
 write('Введите число');
 readln(x);
 i:=1; s:=1;
 for i:=1 to x do s:=s*i+s;
 writeln('Факториал числа ',x,' = ',s);
 readln;
end.