Напечатать те из двузначных чисел, которые делятся на 4, но не делятся на 6 -Pascal(Паскаль)

var
 i:integer;
begin
 for i:=10 to 99 do
  if (i mod 4 = 0) and (i mod 6 <> 0) then writeln(i);

end.