Вывести числа кратные двум и трем ,в диапазоне от 1 до 100
(pascal)

//Pascalvar  i: byte;begin  for i := 1 to 100 do    if (i mod 2 = 0) and (i mod 3 = 0) then      write(i, ' ');end.