Найти сумму четных чисел

program zad0;
uses crt;
var a,b,c,d,s,n:byte;
begin
clrscr;
writeln ('vvedi 4 slagayemix');
readln (a,b,c,d);
        if (a mod 2 = 0) then s:=s+a and n:=n+1 else s:=s+0 and n:=n+1
        if (b mod 2 = 0) then s:=s+b and n:=n+1 else s:=s+0 and n:=n+1
        if (c mod 2 = 0) then s:=s+c and n:=n+1 else s:=s+0 and n:=n+1
        if (d mod 2 = 0) then s:=s+d and n:=n+1 else s:=s+0 and n:=n+1
s:=s div n;
writeln ('otvet=', s);
readln;
end.

        if (a mod 2 = 0) then
        begin
          s:=s+a;
          n:=n+1
        end else
        begin
          s:=s+0;
          n:=n+1
        end;
        if (b mod 2 = 0) then
        begin
          s:=s+b;
          n:=n+1
        end else
        begin
          s:=s+0;
          n:=n+1
        end;
        if (c mod 2 = 0) then
        begin
          s:=s+c;
          n:=n+1
        end else
        begin
          s:=s+0;
          n:=n+1
        end;
        if (d mod 2 = 0) then
        begin
          s:=s+d;
          n:=n+1
        end else
        begin
          s:=s+0;
          n:=n+1
        end;

n:=n+1 else s:=s+0 and n:=n+1
s:=s div n;

program start_consol;
uses
    CRT;
var
  i,n,m,summ:integer;
  a:char;
begin
  a:='a';
  for i:=1 to 4 do begin
     write(a, ' = '); readln(n);
     if (n mod 2)=0 then begin
     summ:=summ+n;
     inc(m); inc(a);
     end;
end;
  writeln('srednearefm = ', summ div m);
  readkey;
  end.