Задание:Дано случайное целое трехзначное число, необходимо все цифры этого числа вывести на печать в столбик .
(выполнять в программе:Паскаль АВС)​

begin

 var A := ReadInteger().ToString.ToCharArray;

 A.ForEach(p -> Println(A.IndexOf(p)+1,' Digit: ', p));

end.

Объяснение:

===== PascalABC.NET =====

begin

 ReadInteger

     .ToString

     .ToCharArray

     .Select((v,i) -> $'{i+1} cifra - {v}')

     .PrintLines

end.