Даны два целых числа A и B ( A < B ) Найти частное, получаемое при делении A на все делители из диапазона целых чисел от A до B включительно.
Это паскаль, только код напишите нормально, пожалуйста.
Заранее, спасибо.

Программа на фотке, код старался сделать простым, сделал ещё защиту от дурака это значит программа не заработает если пользователь не выполнит условие А<Б