var i,n:integer; begin i := 9; n := 1; while i > 0 do begin n := 2 * (n + 1); i := i - 1; end; writeln(n); readln; end. /************************************************************** Problem: 1082 User: admin Language: Pascal Result: Runtime Error ****************************************************************/