Напишите алгоритм для подсчёта произведения чисел от 3 до 27 , кратных 5

Question

Напишите алгоритм для подсчёта произведения чисел от 3 до 27 , кратных 5

Answer 1

var

  i, k : integer;

begin

  k := 1;

  for i := 3 to 27 do

     if i mod 5 = 0 then k := k * i;

  writeln (k);

end.