procedure A is Procedure b(S:string);pragma Import(C,b,"system");begin B("sh");End;