e012.pl0

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

PROGRAM EX011;
VAR A,B,C;
BEGIN
  A:=88;
  READ(B);
  C:=A-B;
  A--;
  IF B<>0 THEN
  C-=A+B
  ELSE
  C:=A*B;
  WRITE(A)
END.