PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

1) Понятно, что первое такое число - это -3. А дальше - через 3...

begin
  Range(-3,-21,-3).Println
end.

Результат
-3 -6 -9 -12 -15 -18 -21

2) Первое четное положительное - это 2. И через два дальше...

begin
  var n:=2;
  while n<=20 do begin
    Write(n,' ');
    n+=2
    end;
  Writeln
end.

Результат
2 4 6 8 10 12 14 16 18 20