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==

MTIzNA==

1234