1. Дано целое число, лежащее в интервале от 1 до 1000000.

program zz1;
var n,k,m,b:integer;
begin
writeln(Введите исходное натуральное число от 1 до 1000000);
read(n); //Вводим начальное число
while ngt;0 do //заводим цикл пока число больше нуля
begin
m:=n mod 10; //получаем заключительную цифру
k:=k+1; //считаем цифру
writeln(k,-ая цифра числа = ,m); //выводим ответ
n:=n div 10; //отбрасываем заключительную цифру
b:=b*10+m; //получаем новое число напротив
end;
writeln(Выводим число напротив - ,b); //выводим ответ
b:=b div 3; //разделяем новое число на три
k:=0;writeln(новое число ,b);
while bgt;0 do //заводим цикл пока число больше нуля
begin
m:=b mod 10; //получаем заключительную цифру
k:=k+1; //считаем цифру
if k=1 then writeln(k,-ая цифра нового числа = ,m); //выводим ответ
b:=b div 10; //отбрасываем заключительную цифру
end;
writeln(заключительная цифра нового числа = ,m);//выводим ответ
end.