Цикл с прудусловием while в delphi

[ilyarybnik23]

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

[evg_m]

while s<A do begin
  s:=s+B;
  k:=k+1;
end;

s:=A;
while s>=B do begin
  s:=s-B;
  k:=k+1;
end;

НЕ ЗАБУДЬТЕ задать все необходимые (=не только А и B) начальные значения!