vladmor Не понятно про "Жесткий" цикл. Но как вариант:

var i:integer;
begin
  for i:=-30 to 50 do
  if (i mod 3=0) and (i mod 4 =0) and(i<>0 then writeln(i);
end.

На выходе:
-24
-12
12
24
36
48