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

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

var A, B, C,d :integer;

begin

readln (A);

readln (B);

readln (C);

    if (A<=C) then

    d:=C-A;

    writeln (d div B);

end.