Задание

Запишите число, которое будет напечатано в результате выполнения следующей программы.

var s, n: integer;

begin

s := 49;

n := 1;

while s > 0 do begin

s := s - 8;

n := n * 2;

end;

writeln(n)

еnd.