Найти длину незанятой части отрезка A

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

Program Integer5;
var a,b,otr:integer;
begin
repeat
write('введите A =');
readln(a);
write('введите B меньше A=');
readln(b);
until (a > b);
otr := a mod b;
writeln('количество отрезков B=',otr);
end.

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