Найти сумму четных цифр заданного числа.

var
  a,p:longint;
  s,s5,t,f,zt,k,res:integer;
begin
  write('P=');
  read(p);
  {Summa chetnyh}
  a:=p;
  s:=0;
  while a<>0 do
    begin
      t:=a mod 10;
      if t mod 2=0 then
        s:=s+t;
      a:=a div 10;
    end;
  {Pervaya tsifra}
  a:=p;
  while a<>0 do
    begin
      if (a>0) and (a<10) then
        f:=a;
      a:=a div 10;
    end;
  {Summa tsifr bolshe 5}
  a:=p;
  s5:=0;
  while a<>0 do
    begin
      if a mod 10>5 then
        s5:=s5+a mod 10;
      a:=a div 10;
    end;
  {Skolko raz zadannaya tsifra vstrech. v chisle?}
  a:=p;
  k:=0;
  repeat
    write('Zadannya tsifra:');
    readln(zt);
    if not (zt in [0..9]) then
      writeln('Oshibka vvoda. Vvedite chislo ot 0 do 9.');
  until zt in [0..9];
  while a<>0 do
    begin
      if a mod 10=zt then
        inc(k);
      a:=a div 10;
    end;
  {Pripisat po 1 v nachalo i v konets chisla}
  a:=p;
  res:=1;
  while a<>0 do
    begin
      res:=res*10;
      a:=a div 10;
    end;
  res:=res*10+p*10+1;
  writeln('Summa chetnyh tsifr chisla ',p,' = ',s);
  writeln('Pervaya tsifra chisla ',p,' : ',f);
  writeln('Summa tsifr chisla ',p,' bolshih 5: ',s5);
  writeln('Tsifra ',zt,' : ',k);
  writeln('Pripisali po 1 v nachalo i konets, rezultat:',res);
end.