Найти творение чисел в спектре от 1 до 23 с шагом

program zz1;

var  i, S:integer; // задаем переменные целого типа

begin

i:=1; // задаем изначальное число спектра

S:=1; // задаем начальное значение для творенья

while i lt;= 23 do // организуем цикл, пока следующее число не достигнет 20 трех

begin

S:=S *  i; // вычисляем творенье, умножая каждое последующее число из диапазона на творение

i:=i + 3; // получаем последующее число, увеличивая предыдущее число спектра на шаг

end;

writeln( творение чисел в спектре от 1 до 23 с шагом 3 = , S); // выводим ответ

end.