Задание

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

var s, i :integer;

begin

s := 1;

i := 1;

repeat

s: = s * 2;

i: = i + 1;

until i >= 6;

writeln(s);

end.