Паскаль. Даны положительные числа 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