zatla ma3ach t3and

Program zatla_ma3ach_t3aned;
Uses Wincrt;
Var
  n,a,d,s: Integer;

Begin
 write('N : ');
  readln(n);
s:= 0 ;
d:= 10 ;
 repeat
     s := (n mod 10) + s*10 ;
     writeln(s);
     n := n div 10 ;
     d := d *10;
 until n= 0 ;
 writeln(s);
End.