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

16 20 28 32 40 44 52 56 64 68 76 80 88 92

program qq;
var i, x, N: integer;

begin
read (N);
for i:= 1 to N do begin
read (x);
if x mod 4 = 0 then begin
if x mod 6 <> 0 then
writeln (x:4)
end;
end;
end.

наверно можно как-нибудь по-другому, но лень вспоминать (N это количество чисел если что)

var x: integer;
begin
for x:= 10 to 99 do
if (x mod 4 = 0) and (x mod 6 <> 0) then
write(x:4)
end.