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.
UHJvZ3JhbSBzdWl0ZV9teXN0ZXJlOwpWYXIgbGlnbmUsIGxpZ25zdWl2LCBjIDogc3RyaW5nOwpuLCBsLCBuYiwgaiwgaSA6IGludGVnZXI7CkJlZ2luCldyaXRlbG4gKCdOID0gJyk7ClJlYWRsbiAobik7CmxpZ25lOj0nMSc7CkZvciBpOj0xIHRvIG4gZG8KQmVnaW4KV3JpdGUgKGxpZ25lKTsKbDo9bGVuZ3RoIChsaWduZSk7Cm5iOj0xOwpsaWduc3Vpdjo9Jyc7CkZvciBqOj0xIHRvIGwgZG8KSWYgbGlnbmVbal0gPSBsaWduZVtqKzFdIFRoZW4gbmI6PW5iKzEKRWxzZQpCZWdpbgpzdHIgKG5iLCBjKTsKbGlnbnN1aXY6PSBsaWduc3VpdiArIGMgKyBsaWduZVtqXTsKbmI6PTE7CkVuZDsgCmxpZ25lOj0gbGlnbnN1aXY7CkVuZDsKRW5kLg==