Repeat циклы " дано целое число n (> 0). используя операции деления без остатка и взятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц)."

Var n,m:integer;
begin
  writeln('Введи число:');
  readln(n);
  repeat
    begin
      m:=n mod 10;
      n:=n div 10;
      writeln(m);
    end;
  until n=0;
end.