Задано 5 целых чисел. Найти сумму только
четных.​

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.

Объяснение: