Укажите число, которое будет выведено на экран в результате работы данной программы.

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