program jizdenky;
uses crt;

var 	pole:array[1..1000000] of integer;
        x1,x2,x3,xm,i,j,k,pocet,pocetcelkem:integer;
        hledej:boolean;
begin
  clrscr;
pocet:=0;pocetcelkem:=0;



repeat
  randomize;
  x1:=random(9)+1;
  repeat
    x2:=random(9)+1;
  until x1 <> x2;

  repeat
    x3:=random(9)+1;
  until ((x1 <> x3) and (x2 <> x3));


begin



if ((x1<x2) and(x2<x3)) then
	begin
	   xm:=100*x1+10*x2+x3;
	end
        else if ((x1<x3) and (x3<x2)) then
	begin
	  xm:=100*x1+10*x3+x2;
	end
	else if ((x2<x1) and (x1<x3)) then
	begin
	  xm:=100*x2+10*x1+x3;
	end
	else if ((x2<x3) and (x3<x1)) then
	    begin
	     xm:=100*x2+10*x3+x1;
	    end
	    else if ((x3<x1) and (x1<x2)) then
	      begin
	       xm:=100*x3+10*x1+x2;
	      end
	    else if ((x3<x2) and(x2<x1)) then
	      begin
	       xm:=100*x3+10*x2+x1;
     end

     else

     end;

 hledej:=true;

 for i:=1 to pocet do
  if pole[i]=xm then hledej:=false;

  if hledej=true then begin pocet:=pocet+1;
                          pole[pocet]:=xm;
                          writeln(xm,'  Pocet jizdenek: ',pocet);
                    end;
  pocetcelkem:=pocetcelkem+1;

   delay(1);

//until Pocetcelkem= 120;
until keypressed;

writeln('Pocet listku celkem: ',pocetcelkem);
readln;
readln;
end.