Какое минимальное основание имеет система счисления если в ней записаны числа 1,9,8,0?

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

  writeln ('делители числа: ');

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.

на листочке чертишь круг,берешь серединку,и получается- 4 клетки вниз и 7 в право

var a: integer;

begin

    read(a);

    a: =a*a;

    a: = a*a;

    writeln(a);

end.