Какое количество деталей может быть получено из имеющегося N кг сплава? - PascalABC.NET

Формулировка задачи:

Добрый день! Помогите, пожалуйста, решить задачу: ""Детали" Имеется N кг металлического сплава. Из него изготавливают заготовки массой K кг каждая. После этого из каждой заготовки вытачиваются детали массой M кг каждая (из каждой заготовки вытачивают максимально возможное количество деталей). Если от заготовок после этого что-то остается, то этот материал возвращают к началу производственного цикла и сплавляют с тем, что осталось при изготовлении заготовок. Если того сплава, который получился, достаточно для изготовления хотя бы одной заготовки, то из него снова изготавливают заготовки, из них – детали и т.д. Напишите программу, которая вычислит, какое количество деталей может быть получено по этой технологии из имеющихся исходно N кг сплава. Вводятся N, K, M. Все числа натуральные и не превосходят 200. Выведите одно число — количество деталей, которое может получиться по такой технологии." Заранее благодарен!

Решение задачи: «Какое количество деталей может быть получено из имеющегося N кг сплава?»

Листинг программы

var n,k,m,kz,kd:integer;
begin
writeln('Введите n,k,m');
readln(n,k,m);//металл, вес заготовок, вес деталей
kd:=0;//количество деталей
while n>=k do //пока вес металла не меньше  веса заготовки
 begin
  kz:=n div k;//количество заготовок
  kd:=kd+kz*(k div m);//количество деталей
  n:=n-kz*(k div m)*m;//остаток металла
 end;
write('Количество деталей=',kd)
end.

Объяснение кода листинга программы

Введенные данные:
- n - вес металла в кг
- k - вес заготовок в кг
- m - вес деталей в кг
Инициализация переменных:
- kd - количество деталей
Ввод данных с помощью функции readln().
Проверка условия, пока вес металла больше или равен весу заготовок.
Вычисление количества заготовок с помощью операции деления (kz = n / k).
Вычисление количества деталей, используя формулу kz * (k / m).
Вычисление остатка металла после изготовления заготовок (n = n - kz (k / m) m).
Вывод результата с помощью функции writeln().