Как решить задачку про спиннеры на 60 баллов в Pascal abc?

Но у вас же n(d) не возрастает на один пока условие не выполнится.Тогда ваше решение можно записать и без условного оператора, после readln(C);n:=(c-a) div b;writeln(n= , n);end. (Я написал n, а не d как у вас, поэтому что в условии конкретно эта буковка)По сущности разговаривая мне нужно записать решение, которое самое нижнее на фотографии, в Pascal abc.