begin

    comment library 1;

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