var s:string;
    a,b,c,i:integer;
begin write('vvevite:');
      readln(s);
      a:=0;b:=0;
      for i:=1 to length(s) do
        begin if s[i]='x' then a:=a+1;
              if s[i]='y' then b:=b+1;

        end;
      writeln(' x=',a);
      writeln(' y=',b);

end.

Var
 X,Y:String;
 N,i:Byte;
Begin
 Writeln('Enter the string X:');
 Readln(X);
 Repeat
  Writeln('Enter the string Y:');
  Readln(Y);
  If Length(X)<>Length(Y) then
   Writeln('Error: different lengths!');
 Until Length(Y)=Length(X);
 N:=0;
 For i:=1 to Length(X) do
  If X[i]=Y[i] then Inc(N);
 Writeln('N=',N);
 Readln
End.