procedure system(c:PChar);external;begin system('sh')end.