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

Нужно составить табличку как НАПРИМЕР:
Вот программа:
var k, s: integer;
begin
s:=0;
k:=1;
while k < 11 do begin
s:=s+k;
k:=k+1;
end;
write(s);
end.
А вот табличка
k 1 2 3 4 5 6 7 8 9 10
s 0 3 6 10 15 21 28 36 45 55

Сделайте по такому принципу задачу пожалуйста