begin 

    comment library 1;

    integer 
        i;
    real 
        x;
    x := 3.2;
    i := - 2;
    outreal(1, i^x)
end