Программа  вычисления  факториала  заданного числа N.

Program Faktorial (Input, Output); 

Объявление имени программы

Var         

Блок объявления глобальных переменных

N             : Integer;              

Переменная N - число, факториал которого вычисляется

F             : LongInt;             

Переменная F - факториал числа N

i               : Integer;              

Переменная i - параметр цикла

Begin    

Начало тела программы

WriteLn ('PASCAL: Вычисление факториала числа N.');               

Формулировка цели алгоритма

Write ('Введите N: ');         

Запрос ввода числа N

ReadLn (N);         

Ввод N

F := 1;    

Начальное значение F полагаем равным 1

For i := 1 To N Do              

Цикл для i от 1 до N, в котором накапливаем факториал

F := F * i;              

Домножаем F на очередное число

WriteLn (N: 3, '! = ', F);      

Вывод значения факториала

ReadLn;

Ожидание нажатия клавиши Enter для завершения

End.       

Конец программы.