При каком наибольшем введенном числе d после выполнения программы будет напечатано 89?

var n, s, d: integer;

begin

readln(d);

n : = 5;

s : = 83;

while s < = 1200 do begin

s : = s + d;

n : = n + 6

end;

write(n)

end.

Программа должна вывести 89, то есть N после цикла должна стать равной 89.
Изначально N была равна 5, каждый повтор цикла к N прибавляется 6.
Определим количество повторов цикла (сколько раз к N должна быть прибавлена 6 для получения числа 89):
5+6*x = 89
6*x = 84
x = 14
То есть цикл должен совершить 14 повторов.

Каждый раз к S прибавляется D (которую нужно найти), изначально S = 83. Нам удобнее прибавлять D к нулю, а не к 83, поэтому вычтем из 1200 83 и приравняем S к нулю.
Условие в цикле теперь будет выглядеть как S lt;= 1117

Нам нужно наибольшее S, при котором цикл совершает 14 повторов. Чем больше значение D, тем меньше повторов совершит цикл. Найдем наименьшее целое D, при котором цикл совершает 13 повторов, и возьмем предыдущее целое, это и будет наибольшее D, при котором цикл совершит 14 повторов.
Цикл завершается после того, как условие перестанет выполняться, то есть при s gt; 1117. Составим неравенство:

13*d gt; 1117
d gt; 85,92

То есть наименьшее D, при котором цикл совершит 13 повторов - 86, значит наибольшее D, при котором цикл совершит 14 повторов - 85.
Ответ 85