Напишите процедуру digits, которая заполняет массив из N элементов цифрами четверичной записи натурального числа X

const
  zn: string[4] = '0123';
  n = 20;
 
type
  tmas = array[0..N - 1] of longint;
 
function DecToFour(n: longint): string;
var
  s: string;
begin
  s := '';
  while n > 0 do
  begin
    s := zn[n mod 4 + 1] + s;
    n := n div 4;
  end;
  DecToFour := s;
end;
 
procedure digits(x: longint; var m: tmas; var q: integer);
var
  i: integer;
  st: string;
begin
  st := DecToFour(x);
  q := length(st);
  for i := 0 to q - 1 do
    m[i] := StrToInt(st[i + 1]);
end;
 
var
  x, i, d: longint;
  w: tmas;
 
begin
  write('Число в системе 10: ');
  readln(d);
  digits(d, w, x);
  for i := 0 to x - 1 do
    write(w[i]);
end.

const
  n = 16; {n = SizeOf(longint) * 4}
 
type
  TMas = array[0..n - 1] of longint;
 
procedure digits(x: longint; var m: TMas);
var
  i: longint;
begin
  for i := 0 to n - 1 do
    begin
      m[i] := x mod 4;
      x := x div 4
    end
end;
 
var
  a: Tmas;
  i, d: longint;
begin
  write('d = ');
  readln(d);
  digits(d, a);
  writeln('Цифры четверичной записи числа (включая незначащие):');
  for i := n - 1 downto 0 do write(a[i]);
  readln
end.