program jizdenky;
uses crt;

var
Krabicka:array[1..1000000] of integer;
x1,x2,x3,x4,xm,i,j,k,l,Pocet_v_poli,pocet:integer;

begin
begin
for i:=1 to 10000 do Krabicka[i]:=0;
end;

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 pocet<10000 then pocet:=pocet+1;
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;

begin

if Krabicka[xm]=0 then
        begin
	Krabicka[xm]:=1;
	Pocet_v_poli:=Pocet_v_poli+1;
        writeln('Zrovna mame ',Pocet_v_poli,' listku.');
        end;
end;

delay(10);


until keypressed;

readln;
writeln('Mame ',Pocet_v_poli,' listku.');
writeln('Pocet nakoupenych listku celkem: ',pocet);
readln;
end.