Решите задачу, используя while. Как можно подробней.

Даны положительные числа A и B (A > B). На отрезке длины A раз-

мещено максимально возможное количество отрезков длины B (без нало-

жений). Не используя операции умножения и деления, найти количество

отрезков B, размещенных на отрезке A.

var a, b, k:integer;

begin

k:=0; {обнуляем счетчик}

write ('a=') ;

read (a) ; {вводим число А}

write ('b=') ;

read (b) ; {вводим число В}

while a>b do {пока А больше В выполняем действия}

begin

a:=a-b; {отрезку мы присваиваем значение, так скажем, укороченного отрезка}

k:=k+1; {счетчик увеличивается на единицу}

end;

writeln ('k=', k) ; {выводим количество раз}

end.