Даны положительные числа а и б (а> б на отрезке длины а размещено максимально возможно кол-во отрезков длины б (без наложений). не используя операции умножения и деления, найти кол-во отрезков б размещённых на отрезке а. надо решить на паскале с переменной

Program asd; const n=4;       m=4; var a: array[1..n,1..m] of integer; i,j,k,s: integer;   sr: real; begin  for i: =1 to n do    begin    for j: =1 to m do        begin      a[i,j]: =5-random(15);       write(a[i,j]: 4);     end;   writeln();   end;   for i: =1 to n do    begin  s: =0; k: =0;     for j: =1 to m do      begin              if a[i,j]< 0 then        begin      s: =s+a[i,j];       inc(k);       sr: =s/k;       end;         end;       writeln('строка: ',i,'; сумма: ',s,'; количество: ',k,'; ср. ариф.: ',sr: 2: 2);       end;             end.

Program asd; var a: array[1..250] of integer; b: array[1..250] of real; i,n: integer; begin  write('введите n: ');   readln(n);   writeln('заполните массив: ');   for i: =1 to n do   begin    write('a[',i,']: '); readln(a[i]);     end;   writeln;   for i: =1 to n do   begin    if (a[i] mod 5=0)    then   b[i]: =a[i]*2    else      begin    b[i]: =a[i]*0.10;     end;     writeln('a[',i,'] = ',b[i]);       end; end.