While17

## uses PT4; Task('while17');
var n := ReadInteger;
var len_n := n.ToString.Length;
var (a,b) := (0,0);
for var i := 1 to len_n do
  begin
    a := n mod 10;
    b := n div 10;
    n := b;
    Print(a)
  end;
/////////////////////////////////
## //uses PT4; Task('while17');
// сделал через while
var n := ReadInteger;
var len_n := n.ToString.Length;
var (a,b) := (0,0);
//for var i := 1 to len_n do
while n > 0 do
  begin
    a := n mod 10;
    b := n div 10;
    n := b;
    Print(a)
  end;