Задача 5.2. Скласти програму для обчислення добутку перших десяти цiлих чисел.
D = 1 * 2 * 3 * ...* 10.

Program PR1;
Label M1;
Const N=10;
Var D,i:Integer;
 Begin I:=1; {Перше число}
   D:=1; {Початкове значення добутку}
   M1: D:=D*i; {Визначаїмо добуток}
   I:=i+1; {Визначити наступне число}
 If i<= N Then Goto M1; {Перевiрити чи всi числа перемножили}
 WriteLn ('D =',D) {Надрукувати результат на екранi}
 End.

Результати роботи програми:

Завдання 5.2.1. Знайти добуток непарних чисел 4 до 10.
Завдання 5.2.2. Знайти добуток парних чисел 12 до 19. Зауваження: Для того щоб програма обчислення добутку давала вiрний результат потрiбно слiдкувати за тим, щоб зна- чення результату не виходимо за межi допустимих зна- чень для величин типу integer (32767) , або викорис- товувати величину типу Real, що маї значно бiльший дiапазон допустимих значно. А який цей дiапазон?