uses crt;function step(n:integer):integer; var p:integer; begin p:=2; repeat p:=p*2; n:=n-1; until n=1; step:=p; end;
vara,sum,n:integer;beginn:=3;repeatsum:=sum+step(n);n:=n+2;until n>9;write(sum);end.