Определите какое нужно ввести наибольшее число 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.

• 34
• 35
• 36
• 37
• 33