Определите, при каком наибольшем введённом значении переменной s программа выведет число 31.
var n, s: integer;
begin
readln\(s\);
n := 10;
while s > 0 do begin
s := s - 15;
n := n + 3;
end;
write\(n\)
end.