Question

определить из каких цифр состоит число цикл repeat

Answer 1

var x: integer;
begin
  readln(x);
  repeat
    write(x mod 10);
    write(',');
    x := floor(x / 10);
  until x < 1;
end.

Answer 2

Гениально! Низачто бы не понял что требуется сделать :)