При каком наибольшем введенном числе d после выполнения программы будет напечатано 75?
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.

Нужно узнать через сколько циклов из 0 будет 75 при нарастании на 5 : 75/5 = 15

Тогда составим уравнение:

365 = (s + d ) * 15

S= 0

d= 365 / 15 = 24,3(3)

Исходя из того, что при 24 пройдет ещё один цикл (24*15=360), следовательно, наибольшее число это 25