Найти количество отрезков B, размещенных на отрезке A

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

Program Integer4;
var a,b,otr:integer;
begin
repeat
write('Enter please A =');readln(a);
write('Enter please B =');readln(b);
until (a>b);
otr:=a div b;
writeln('количество отрезков B=',otr);
end.

автор: Zakirov Nail a.k.a. ZevsNet