begin 

    comment library 1;

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