var

 a:array of char;

 i,n,count:integer;

begin

 count:=0;

 write('N='); readln(n);

 setlength(a,n);

 writeln('Vvedite massiv po 1 simvoly');

 for i:=0 to n-1 do

   begin

     readln(a[i]);

     if (ord(a[i])=1025) or (ord(a[i])=1105) or  

        ((ord(a[i])>=1040) and (ord(a[i])<=1103)) then

           inc(count);

   end;

 for i:=0 to n-1 do

   write(a[i],' ');

 writeln;

 writeln('Count=',count);

end.