Дано натуральное число n (n≤999999). Заполнить массив его цифрами, расположенными в обратном порядке (первый элемент (программа Паскаль)

Question

Дано натуральное число n (n≤999999). Заполнить массив его цифрами, расположенными в обратном порядке (первый элемент равен последней цифре, второй – предпоследней и т.д.).

Answer 1

program massiv ;
uses crt;
 type mas=array[1..1000] of integer;
var i,n,r: integer;
    m:mas;
begin writeln ('введи число') ;
readln (n); i:=1;
repeat
m[i]:= n mod 10;
n:= n div 10;
i:=i+1;
until n=0;
    for r:=1 to i-1 do
    write(m[r], '  ');
    end.