var
i,j,s:integer;
begin
s:=1;
writeln ('Введите число i');
readln (i);
for j:=1 to i do
s:=s*2;
writeln ('Ответ:',s);
end.