Задача 5 (n>0,=3,<>4)

var
  n,i:integer;
begin
  readln(n);
  for i:=1 to n do
  if (i>0) and (i mod 3=0) and (i mod 4<>0)
    then
      writeln(i)
end.