Цикл до найти произведение чисел кратных 3 в диапазоне от 1 до 30 информатика

Program dfgd;

var
  n: real;
  i: integer;

begin
  n := 1;
  for i := 1 to 30 do
    if (i mod 3 = 0)
      then n := n * i;
  writeln('Произведение чисел, кратных 3 = ', n);
end.