{* Факториал числа n *}

Unit PROGRAM CIKL_4;
Interface
Implementation
Begin
 writeln('Вывод факториала числа n
');
End.

Program cikl_4;

Uses program cikl_4.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  i : integer;
  n : integer;
  s : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('Vvedite n');
  readln(n);
  s := 1;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    s := s * i;
  End;
  writeln(s : 5 : 0);
  readkey; {* Ждем нажатия любой клавиши *}
End.