program ddd;
uses crt;
var i,n,sum,t:integer;
begin clrscr;
write('Vvedite kol-vo: ');
read(n);
for i:=1 to n do
    begin
        write('Vvedite 4islo nomer ',i,': ');
        readln(t);
        if odd(t)=false then
           sum:=sum+t
        else
            begin
                 writeln('4islo ',t,' ne 4etnoe');
                 break;
            end;
    end;
writeln('Suma 4isel = ',sum);
readkey
end.