Назначение представленного фрагмента программы:
Р:=1;
FOR K:=1 TO 100 DO
Р:=P*K;
WRITE (P);
Вычисление произведения первых ста натуральных чисел
Вычисление произведения четных натуральных чисел,меньших 100
Вычисление произведения ста чисел, введенных пользователем