Нужно решить несложную задачу

[maks_m]

Задание:

Составьте программу выводящую числа от 1 до 30, которые делятся без остатка на 2 и 3, но не делятся на 4.
В программе должен использоваться оператор "While".

[9i.]

на каком языке уточнили хотя-бы

[maks_m]

программу нужно написать на языке Pascal

[Zer0]

var i:integer;
...
for i:=1 to 30 do
 if (i mod 2=0) and (i mod 3=0) and (i mod 4 > 0) then writeln(i);

вот Вам основная часть, думаю переделать ее под while уже не должно быть трудным