var s,s1:string;
    i,j,k,z,m,n:integer;
    a:array[1..30] of string;
    b:array[1..30] of integer; 
    ok: boolean;
begin 
 readln(s);
i:=1;           k:=0;
  while i<=length(s) do 
   begin 
     j:=i;
      while ((s[j]<>' ') and (s[j]<>',') and (s[j]<>'.')) and (j<=length(s))
      do inc(j);
     inc(k); 
     s1:=copy(s,i,j-i); 
     ok:=false;
       for z:=1 to k do 
          if a[z]=s1 then ok:=true;
     if ok=false  then
      begin 
       inc(k);
       a[k]:=s1;
      end;
     i:=j+1;
   end;
 for i:=1 to k do 
  writeln(a[i]);

end.

type rec = record 
            name :string;
            tip  :string;
            price:longint;
           end;  
var 
     c:array[1..20] of integer;
     a:array[1..20] of rec;
     i,j,l,m,n,k,min,max:longint;
begin 
 write('Kolichestvo mashin '); 
 readln(n);
  for i:=1 to n do 
   begin 
    writeln('Mashina #',i);
    write('Marka '); readln(a[i].name);
    write('Tip polomki '); readln(a[i].tip);
    write('Cena za pochinku '); readln(a[i].price);
    Writeln('------------------------------');
   end;
   min:=1; max:=1;
   for i:=1 to n do 
    begin 
     if (a[i].price<a[min].price) then min:=i;
     if (a[i].price>a[max].price) then max:=i;
    end;
  writeln('Samaya dorogaya machina  ',a[max].name,' ',a[max].price,'$');
  writeln('Samaya deshevaya machina  ',a[min].name,' ',a[min].price,'$');
  Writeln('------------------------------');
   for i:=1 to n-1 do 
    for j:=i+1 to n  do 
     if a[i].name=a[j].name  then 
      begin 
       inc(c[i]);
       inc(c[j]);
      end;
   min:=1; max:=1;
  for i:=1 to n do 
    begin 
     if (c[i]<c[min]) then min:=i;
     if (c[i]>c[max]) then max:=i;
    end;
 writeln('Samaya vstrechaemaya mashina ',a[max].name);
 writeln('Samaya redkaya mashina ',a[min].name);
end.