Определите наименьшее натуральное значение переменной s, для которого на экране выведется 4.

var s, n: integer;
begin
readln\(s\);
n := 1;
while s < 30 do
begin
s := s + 13;
n := n * 2;
end;
writeln\(n\)
end.