Program suite_mystere;
Var ligne, lignsuiv, c : string;
n, l, nb, j, i : integer;
Begin
Writeln ('N = ');
Readln (n);
ligne:='1';
For i:=1 to n do
Begin
Write (ligne);
l:=length (ligne);
nb:=1;
lignsuiv:='';
For j:=1 to l do
If ligne[j] = ligne[j+1] Then nb:=nb+1
Else
Begin
str (nb, c);
lignsuiv:= lignsuiv + c + ligne[j];
nb:=1;
End; 
ligne:= lignsuiv;
End;
End.