var 
n,i,count: integer;

begin
i := 1;
count := 1;
writeln('Сколько минут ждать?');
readln(n);

while i<=n do
begin
i := i + 1;
count := count*2;
end;

writeln('Спустя ',n,' минут образовалось ',count,' молекул');
end.