var
a, b, c, d, e : integer;
s : longint;
begin
readln(a, b, c, d, e);
s := 0;
if a mod 2 = 0 then s := s + a;
if b mod 2 = 0 then s := s + b;
if c mod 2 = 0 then s := s + c;
if d mod 2 = 0 then s := s + d;
if e mod 2 = 0 then s := s + e;
write(s)
end.
Объяснение:
var
a, b, c, d, e : integer;
s : longint;
begin
readln(a, b, c, d, e);
s := 0;
if a mod 2 = 0 then s := s + a;
if b mod 2 = 0 then s := s + b;
if c mod 2 = 0 then s := s + c;
if d mod 2 = 0 then s := s + d;
if e mod 2 = 0 then s := s + e;
write(s)
end.
Объяснение: