Pascal. Задача 7-4

procedure digits(n, q : integer);
begin
  if n < q then
    write(n)
  else
  begin
    digits(n div q, q);
    write(n mod q);
  end;
end;

var
  n, q : integer;
begin
  Write('Введите число: ');
  Readln(n);
  Write('Введите основание системы счисления (1 < q < 10): ');
  Readln(q);
  Write('Число ', n, ' в ', q, '-ой системе счисления: ');
  digits(n, q);
  writeln();
end.