program lx4;varx,i:integer;beginx:=1;for i:=2 to 10 dox:=(x+1)*2;writeln(x);end.
var t,i:integer;begin t:=1; for i:=2 to 10 do begin x:=(x+1)*2; end; writeln(x);end.