ABC Paskal
Вывести на экран через запятую массив из 20 целых чисел, в котором первый элемент равен 25, а каждый последующий больше предыдущего на 2. Вычислить сумму элементов с четными индексами.

var a:array [1..20] of integer;i,k,s:integer;begink:=25;for i:=1 to 20 dobegina[i]:=k;k:=k+2end;for i:=2 to 20 doif i mod 2 = 0 then s:=s+a[i];writeln (a);writeln (s)end.