напишите процедуру digits, которая заполняет массив из n элементов цифрами десятичной записи натурального числа x.
в 0-ой элемент массива необходимо записать цифру 0-го разряда десятичной записи числа х.
в 1-ый элемент массива необходимо записать цифру 1-го разряда десятичной записи числа х.
в (n-1)-ый элемент массива необходимо записать цифру (n-1)-го разряда десятичной записи числа х.
размер массива заранее задан константой n. используйте заголовок:
procedure digits(x: longint; var m: tmas);
тип тmas задан как array[0..n - 1] of longint и может использоваться для описания параметров подпрограмм.