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.

Нужно переделать программу в

vladt12092002    2   13.04.2021 06:32    5