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

//Pascal ABC.NET 3.1 сборка 1219

Var
 a,b:integer;
begin
 read(a,b);
 while a-b>=0 do
  a:=a-b;
 writeln(a);
end.

Пример ввода:
16
5
Пример вывода:
1