Как поделить

var
  n,i:longint;
begin
  write('n=');readln(n);
  write(n,'/16=');
  while n>15 do begin n:=n-16;i:=i+1;end;
  writeln(i,', остаток:',n);
end.

function Accur(eps: Real): Byte; //необязательная часть кода
var
    Result: Byte;
begin
    Result := 0;
    while (eps < 1) do
    begin
        Inc(Result);
        eps := eps * 10;
    end;
    Accur := Result;
end;
var
    a, b, c, d: Real;
begin
    Write('a='); ReadLn(a);
    Write('b='); ReadLn(b); //b := 16;
    c := Random * 100;
    Write('EPS='); ReadLn(d); d := Abs(d);
    while (Abs(b * c - a) >= d) do
        if (b * c > a)
        then
            c := c - Sqr(d)
        else
            c := c + Sqr(d);
    WriteLn('a/b=', c:0:Accur(d));
end.

procedure d16(n:integer;var ost,k:integer);
 begin
  if k*16<n
   then begin inc(k);d16(n,ost,k) end
   else begin 
         if k*16>n then dec(k);
         ost:=abs(k*16-n) 
        end
 end;  
var n,ost,k:integer;
begin 
 k:=1;ost:=0;
 writeln('n = ');readln(n);
 d16(n,ost,k);
 writeln(n,'/16 :');
 writeln('частное: ',k,' остаток: ',ost)
end.