program ideone;
var number: integer;
tmp: integer;
counter: integer;
numbers: array [1..5000] of integer;
i: integer;
begin
counter := 1;
write('enter your number: ');
readln( number );
tmp := number;
writeln;
writeln('Цифры числа в столбик:');
while tmp > 0 do
begin
numbers[counter] := tmp mod 10;
counter := counter + 1;
tmp := tmp div 10;
end;
for i := 0 to counter - 2 do
begin
write(counter - 1 - i, " ");
writeln(numbers[counter - 1 - i]);
end;
//readln(tmp);
end.
cHJvZ3JhbSBpZGVvbmU7CnZhciBudW1iZXI6IGludGVnZXI7CnRtcDogaW50ZWdlcjsKY291bnRlcjogaW50ZWdlcjsKbnVtYmVyczogYXJyYXkgWzEuLjUwMDBdIG9mIGludGVnZXI7Cmk6IGludGVnZXI7CmJlZ2luCgljb3VudGVyIDo9IDE7Cgl3cml0ZSgnZW50ZXIgeW91ciBudW1iZXI6ICcpOwoJcmVhZGxuKCBudW1iZXIgKTsKCXRtcCA6PSBudW1iZXI7Cgl3cml0ZWxuOwoJd3JpdGVsbign0KbQuNGE0YDRiyDRh9C40YHQu9CwINCyINGB0YLQvtC70LHQuNC6OicpOwoJd2hpbGUgdG1wID4gMCBkbyAKCWJlZ2luCgkJbnVtYmVyc1tjb3VudGVyXSA6PSB0bXAgbW9kIDEwOwoJCWNvdW50ZXIgOj0gY291bnRlciArIDE7ICAgCgkJdG1wIDo9IHRtcCBkaXYgMTA7CgllbmQ7Cglmb3IgaSA6PSAwIHRvIGNvdW50ZXIgLSAyIGRvCgliZWdpbgoJCXdyaXRlKGNvdW50ZXIgLSAxIC0gaSwgIiAiKTsKCQl3cml0ZWxuKG51bWJlcnNbY291bnRlciAtIDEgLSBpXSk7CgllbmQ7CgkvL3JlYWRsbih0bXApOwplbmQuCg==