Program wanted;
Uses crt;
Var dem,n,i: longint;
A: Array[0..100] Of integer;
Begin
clrscr;
i := 1;
dem := 0;
write('nhap n=');
readln(n);
While n>10 Do
Begin
A[i] := n Mod 10;
n := n Div 10;
i := i+1;
dem := dem+1;
End;
write('So dao cua n la:');
For i:=1 To dem Do
write(A[i]);write(n);
readln
End.