Сгониривровать массив с размером от 1 до 100 найти сумму каждого 2 элемента

Var
  i,s:integer;
  a:array[1..100] of integer;
 
begin
  for i:=1 to 100 do a[i]:=i;
  s:=0;
  i:=2;
  while i<=100 do begin
    s:=s+a[i];
    i:=i+2
    end;
  Writeln('Сумма четных элементов равна ',s)
end.

Пример
Сумма четных элементов равна 2550

А вот так эту задачу решают "во взрослом мире" (если не помнят формулу суммы арифметической прогрессии):

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

begin
  Range(2,100,2).Sum.Println
end.