Program TitanovieIaica;
Var chislo,i,vivod,number,delit,kolvo:integer;
Begin
vivod:=0; //вывод целого числа, показывающего номера полож членов послед
i:=1; //счетчег
delit:=1; //делитель для разбиения числа
kolvo:=1; //переменная для счетчика цифр
repeat //цикл для ввода цифр последовательности
writeln('Vvedite chislo posledovatelnosti:');
readln(chislo); //вводим число
if chislo>0 then //проверка - положительное ли число, если да, то
Begin
vivod:=vivod*10+i; //тут формируем число ,В котором каждая циыра - номер положительного члена последов.
End;
i:=i+1; //этим счетчиком определяется номер полож. члена в последов.
until chislo=0; //если член последов = 0, то завершаем ввод
if vivod>10 then //если чисел было больше чем 1, то
Begin
number:=vivod; //присваиваем переменной для подсчета кол-ва цифр знач. числа с номерами членов
while number>10 do //пока число >10 выполняем:
Begin
number:=number div number; //целочисленное деление на 10
kolvo:=kolvo+1; //подсчет количества цифр
end;
repeat
delit:=delit*10; //считаем первый делитель
kolvo:=kolvo-1;
until kolvo=1;
End
else writeln('Nomer posledovatelnosti:',vivod);// если число было1, то выводим его
while vivod>10 do //тут разбиваем число с нормерами членов последовательности на цифры если оно больше 10
begin
write(vivod div delit, ' ');//выводим член последовательности
vivod:=vivod mod delit; //убираем из числа выведенную цифру
delit:=delit div 10; //убираем из делителя 0
end;
write(vivod); //выводим последнюю цифру числа
END.

Vvedite chislo posledovatelnosti:
12
Vvedite chislo posledovatelnosti:
12
Vvedite chislo posledovatelnosti:
12
Vvedite chislo posledovatelnosti:
12
Vvedite chislo posledovatelnosti:
2
Vvedite chislo posledovatelnosti:
0
1234 5

Vvedite chislo posledovatelnosti:
12
Vvedite chislo posledovatelnosti:
12
Vvedite chislo posledovatelnosti:
12
Vvedite chislo posledovatelnosti:
12
Vvedite chislo posledovatelnosti:
2
Vvedite chislo posledovatelnosti:
0
1 2 3 4 5