program pr; var a,b,c,d,e:integer; sum:longint; begin writeln('Введите 5 целых чисел через пробел '); readln(a,b,c,d,e); sum:= 0; if a mod 2 = 0 then sum:= sum + a; if b mod 2 = 0 then sum:= sum + b; if c mod 2 = 0 then sum:= sum + c; if d mod 2 = 0 then sum:= sum + d; if e mod 2 = 0 then sum:= sum + e; write('Сумма чётных = ',sum) end.