Вывести на экран все числа в промежутке от 1 до n. которые делятся на 2,3 и 5

Var
 i,n:integer;
begin
 read(n);
 for i := 1 to n do
   if (i mod 2) * (i mod 3) * (i mod 5) = 0 then
   write(i,' ')
end.