Question

Задайте с клавиатуры натуральное число из 10 знаков. Составьте одномерный массив из цифр этого числа в порядке их следования.

Answer 1

uses School; // стандартная библиотека школьника

begin

 var n := ReadInt64('Введи натуральное число');

 var a := n.Digits;

 a.Print

end.