Определите, при каком наименьшем введённом значении переменной s программа выведет число 160.
var s, n: integer;
begin
readln(s);
n := 5;
while s >= 135 do begin
s := s - 7;
n := n * 2;
end;
writeln(n)
еnd.