<span> С помощью </span>клавиши<span> Backspace </span><span>можно удалить символ слева от курсора.</span>
Var
i, x, sum, n: integer;
begin
read(n);
for i:=1 to n do begin read(x); if x mod 2=0 then sum:=sum+x end;
writeln(sum);
end.
Для защиты от тупого копирования. gcc 4.8.4