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

1. Современное решение (приводится в качестве контрольного примера, дающего эталон суммы).

begin
  Range(101,301,2).Sum.Println
end.

Результат
20301

2. Цикл while

begin
  var (i,k,s):=(101,301,0);
  while i<=k do begin s+=i; i+=2 end;
  s.Println
end.

3. Цикл repeat

begin
  var (i,k,s):=(101,301,0);
  repeat
    s+=i; i+=2
  until i>k;
  s.Println
end.

Результаты выполнения всех трех программ одинаковы.