При начальном значении N=4, по окончании работы программы
ПРОГРАММА 101101
ФУНКЦИЯ FACT(K);
НАЧАТЬ ФУНКЦИЮ
ЕСЛИ K>0 ТО
FACT := K*FACT (K-1)
ИНАЧЕ FACT:=1;
ВСЕ
КОНЕЦ ФУНКЦИИ
НАЧАТЬ ПРОГРАММУ
ВЫВОД (‘ВВЕДИТЕ N’);
ВВОД (N);
ВЫВОД (FACT (N));
КОНЕЦ ПРОГРАММЫ
будет выведено ...