У натрульного числа определить сумму и количетво четных цифр
      и определить сколько раз в числе встречается вторая цифра в Pascal

program p1;var a,a1,b,k,s,m,l:integer;beginreadln(a);a1:=a;s:=0;m:=0;while a<>0 dobeginb:=a mod 10;if a mod 2=0 thenbegin k:=k+1; s:=s+b;end;a:=a div 10;if (a<10) and (m=0) then m:=b;end;while a1<>0 dobeginb:=a1 mod 10;if b=m then l:=l+1;a1:=a1 div 10;end;writeln('Сумма четных цифр: ',s);writeln('Количество четных цифр: ',k);writeln('Вторая цифра встречается: ',l,' раз');end.