Program TuKpa6;
const n=5;
var
A:array[1..n] of integer;
i,sum:integer;
BEGIN
sum:=0;
for i:=1 to n do {забиваем массва}
  begin
  a[i]:=i;
  end;
for i:=1 to n do {суммируем чётные элементы}
  begin
    if not (odd(a[i])) then
      begin
        sum:=sum+a[i];
      end;
  end; 
writeln('HaIIgeHo:');
for i:=1 to n do
  begin
    if i=4 then
      begin
        a[i]:=sum;
        writeln('a[',i,']=',a[i]);
      end;
  end;
writeln('koHeII,');
END.