funpara.pl0

来自「1. PL/0 语言介绍 ●PL/0 程序设计语言是一个较简单的语言」· PL0 代码 · 共 25 行

PROGRAM SDF;
VAR
X,Y:INTEGER;
FUNCTION MC(A,B:INTEGER):INTEGER;
VAR M,C:INTEGER;
BEGIN
 M:=A;
 C:=B;
 WRITE(A,B);
 MC:=M+C;
END;
FUNCTION KFC(C,D:INTEGER):INTEGER;
VAR K,F:INTEGER;
BEGIN
  K:=C;
  F:=D;
  WRITE(C,D);
  KFC:=K+F;
END;
BEGIN
 X:=MC(1,2);
 Y:=KFC(5,6);
WRITE(X*Y);
END.