program massiv;  
var     
R: array [1..20] of integer;  
i,x,Nx: integer;     

begin  
writeln('Ìàññèâ ñëó÷àéíûõ ÷èñåë');  
        
    for I:= 1 to 20 do  
      begin     
       R[i]:=random(50);  
       writeln(R[i]);  
      end;  

writeln('-------------');  
readln(x);
writeln('-------------');  

Nx:=0;  
          
FOR I:=1 to 20 do  
    begin  
      if R[i]=x then Nx:=Nx + 1;  
    end;  

if Nx=0 then     
      writeln('Òàêèõ ÷èñåë íåò')  
     else  
      writeln('Íàéäåíî ',Nx,' ñîâïàäåíèé');  
           
end.