Вычислить сумму четных цифр введенного числа.

var
  a:longint;
function SumEven(p:longint):integer;
var
  s:integer;
begin
  s:=0;
  while p<>0 do
    begin
      if (p mod 10) mod 2=0 then
        s:=s+p mod 10;
      p:=p div 10;
    end;
  SumEven:=s;
end;
begin
  repeat
    write('a=');
    readln(a);
  until a>0;
  writeln('Summa chetnyh tsifr chisla:',SumEven(a));
end.

const
  nmax=100;
type
  mas=array[1..nmax] of integer;
var
  a:mas;
  i,n:integer;
function FirstZero(x:mas;sizeArr:integer):integer;
var
  i:integer;
begin
  i:=1;
  while (x[i]<>0) and (i<=sizeArr) do
    inc(i);
  if i>n then
    FirstZero:=0
  else
    FirstZero:=i;
end;
begin
  randomize;
  repeat
    write('Razmer, ne bolee ',nmax,': ');
    readln(n);
  until n in [1..nmax];
  writeln('Ishodniy massiv A:');
  for i:=1 to n do
    begin
      a[i]:=random(10);
      write(a[i]:4);
    end;
  writeln;
  if FirstZero(a,n)<>0 then
    writeln('Indeks pervogo nulevogo el.:',FirstZero(a,n))
  else
    writeln('V massive net nulevyh el.');
end.