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

    p(1);
   ll :;
end