Найти произведение чисел в диапазоне от 1 до 23 с шагом 3. Т. е. 1, 4, 7, ...

program zz1;

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

begin

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

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

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

begin

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

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

end;

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

end.