Ввести целое число n и вывести 2 ^n , используя битовые операции.
Var n:integer; Begin Write('n = ');ReadLn(n); WriteLn(2,'^',n,' = ',1 shl n); End.
Уже=))