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

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.

var x, i: integer;
    sum: longint;
begin
  sum := 0;
  writeln('Введите 5 целых чисел через пробел ');
  for i := 1 to 5 do
    begin
      read(x);
      if not odd(x) then sum := sum + x
    end;
  readln;
  write('Сумма чётных = ', sum);
  readln
end.

var x, i: integer;
    sum: longint;
begin
  sum := 0;
  for i := 1 to 5 do
    begin
      read(x);
      if not odd(x) then sum:= sum + x
    end;
  readln;
  writeln(sum)
end.

var
  x, i: Integer;
  s: Longint;
begin
  for i:=1 to 5 do begin
    Read(x); s:=s+Ord(not Odd(x))*x;
  end; ReadLn;
  WriteLn(sum);
end.