p11.pl0

来自「PL/0语言是Pascal语言的一个子集」· PL0 代码 · 共 16 行

PROGRAM P11a;
CONST A=10;
VAR B,C;
PROCEDURE P;
BEGIN
  C:=B+A;
END;
BEGIN
  READ(B);
  WHILE B#0 DO
  BEGIN
    CALL P;
    WRITE(2*C);
    READ(B);
  END;
END.