Сократите 4/32. Заранее спасибо

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

var n, s, d: integer;

begin

readln(d);

n := 0;

s := 0;

while s <= 365 do begin

s := s + d;

n := n + 5

end;

write(n)

end.