В какой системе счисления 16324 есть точный квадрат 125?.

Var n, m, osn: integer;

function nmbdec (var n, osn: integer) : integer;

var nmb, l, s, k: integer;

begin

nmb:=0; s:=0;

k:=n; l:=1;

while k>0 do

begin

s:=k mod 10;

k:=k div 10;

nmb:=nmb+l*s;

l:=l*osn;

end;

Result:=nmb;

end;

{ конец функции}

begin

write ('число: ') ;

readln (n) ;

write ('квадрат какого числа: ') ;

readln (m) ;

osn:=10;

while osn>=2 do

begin

osn:=osn-1;

if nmbdec (n, osn) = sqr (nmbdec (m, osn)) then

begin

writeln ('основание системы = ', osn) ;

break;

end;

end;

end.