1. Вывести на экран все целые числа от 100 до 200,

program Example;
var
  i:integer;
  first:boolean; //вспомогательная переменная для вывода запятой в подходящем месте
begin
  first:=true;
  for i:=100 to 200 do
    if i mod 3=0 then //Проверяем разделенье на 3
      if (first) then
      begin
        write(i);
        first:=false;
      end else
        write(, ,i);
end.

В итоге получим:

102, 105, 108, 111, 114, 117, 120, 123, 126, 129, 132, 135, 138, 141, 144, 147, 150, 153, 156, 159, 162, 165, 168, 171, 174, 177, 180, 183, 186, 189, 192, 195, 198