сгониривровать массив с размером от 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.Printlnend.