оставьте программу, выводящую на экран числа от 1 до 30, которые делятся без остатка на 2 и 3, но не делятся на 4. Но, что бы решение было БЕЗ "for", а с    while

var n:integer;begin  n:=1;while n<30 do    begin       if (n mod 2 = 0) and (n mod 3 = 0) and (n mod 4 <> 0) then write(n,' ');                  n:=n+1;    end;end.