При каком наибольшем введенном числе 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.