hey.pas

来自「介绍C语言与Pascal语言混合编程技术。」· PAS 代码 · 共 11 行

program hey;
{$L hey.obj}
procedure heyc(k:char);external;
procedure heyp(s:char);
 begin
   writeln('Hey,it is from ',s);
 end;
begin
  heyp('P');
  heyc('C');
end.