begin 
    procedure p(l);
        integer 
            l;
       l : begin 
        real 
            a;
        go to l;
       l :;
        go to ll
        end;

    p(1);
   ll :;
end