[abcdef]

ну да, невнимательность.. тогда n=a^b, чтоб найти целочисленное b:
b:=0; while n>a do begin n:=n-a; b:=b+1; end;