НАЧАЛО
  ПЕРЕМЕННЫЕ: N, ФАКТ, I
  ВВОД N
  ФАКТ := 1
  I := 1
  ПОКА I <= N ЦИКЛ
    ФАКТ := ФАКТ * I
    I := I + 1
  КЦ
  ВЫВОД ФАКТ
КОНЕЦ