var n,i : integer; b : real;beginreadln (n);b:=1;for i:=1 to n div 2 do begin B:=B*2 ; end;writeln(b);end.
вот так)
