Задание

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

var s, n: integer;

begin

s := 6;

n := 1;

while s < 40 do

begin

s := s + 13;

n := n * 2;

end;

writeln(n)

end.