Напишите программу, которая считывает с клавиатуры последовательность символов и выводит на экран:
а)количество считанных десятичных цифр; 
б)количество четных цифр;
в)количество нечетных цифр;

var  i,n,x,y,z:integer;  s:string;beginreadln(s);for i:=1 to length(s) do  if (47<ord(s[i])) and (ord(s[i])<58) then  begin  n:=StrToInt(s[i]);  case n of  0..9:     begin     x:=x+1;     if n mod 2=0 then y:=y+1 else z:=z+1     end   end   end;writeln('Число цифр: ',x,'; четных цифр: ',y,'; нечетных цифр: ',z)end.