funparav.pl0

来自「扩展PL0语言 对其扩展++,--,+=,-=运算等」· PL0 代码 · 共 24 行

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