uses wincrt;
Type Tab=Array[1..12] of integer;
Var T:Tab;

Function Dist(X,i:Byte,T:Tab):Boolean;
var j:byte;
Begin
  j:=1;
  while (X<>T[j]) and (j<=i) do
  Begin
    j:=j+1;
  End;
  Dist:=(i=j);
End;


Procedure (Var T:Tab;N:Byte);
Begin
 Repeat
    writeln('N');
    readln(N);
  Until N in [0..12];
  For i:=1 to N do
  Begin
    Repeat
      X:=random(140)+10;
    Until Dist(X,i-1,T);
    T[i]:=X;
  End;
End;


Procedure  Tri(Var T:Tab;N:Byte);
Begin
End;


Procedure Affichage(T:Tab;N:Byte);
Begin
End;

Begin
  Remplissage(T,N);
  Tri(T,N);
  Affichage(T,N);
End.