Даны натуральные числа от 1 до 200. найти тех из них которые делятся на 2 и на 3.

Если число делится одновременно на 2 и на три, оно также делится на 2х3=6.
Первое такое натуральное число - это 6. А дальше наращиваем числа на 6...

// PascalABC.NET 3.0, сборка 1088
var
  i:integer;
begin
  i:=6;
  while i<=200 do begin Write(i,' '); i:=i+6 end
end.

Результат выполнения программы:
6 12 18 24 30 36 42 48 54 60 66 72 78 84 90 96 102 108 114 120 126 132 138 144 150 156 162 168 174 180 186 192 198

Pascal abc.
Проверка
6  12  18  24  30  36  42  48  54  60  66  72  78  84  90  96  102  108  114  120  126  132  138  144  150  156  162  168  174  180  186  192  198