var arv: integer;
begin
 writeln('Programm v„ljastab numbrid, millest arv koosneb');
 write('arv='); readln(arv);
 repeat
  writeln(arv mod 10);
  arv:=arv div 10;
 until arv=0;
end.