Очень надо ...............

uses Crt;
var N, p,i : integer;
begin
 ClrScr;
 Write(' N= '); ReadLn(N);
 if N<=30 then
    if N=0 then Writeln('2^0 = 1')
           else
           begin
             p:=1;
             for i:=1 to N do
             P:=2*P;
           end;
 Writeln(' 2^', n,' =',P );
 ReadLn;
end.