begin 
    procedure q( st ) invalid parameter like comments ( a );
        string st; real a; ;
        q( "az" ) also in the call( 1.0 )
end