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.
вот так)
var n,i : integer;
b : real;
begin
readln (n);
b:=1;
for i:=1 to n div 2 do
begin
B:=B*2 ;
end;
writeln(b);
end.
вот так)