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

program while1;
uses crt;
var a,b:integer;
begin clrscr;
repeat
writeln('Введите число а ');
readln(a);
writeln('Введите число b (B<A) ');
readln(b);
until(b>0)and(a>b);
while a>=b do
a:=a-b;
writeln('Результат ',a);
readln
end.

автор: Oleg Voloshin