numeric p,q,n; n := 11; p := 2**n; q := 2**n + 1; show p, q; end;