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

спасибо огромное!

//Pascal ABC.NET 3.1 сборка 1219Var a,b:integer;begin read(a,b); while a-b>=0 do  a:=a-b; writeln(a);end.Пример ввода:165Пример вывода:1