e0101.pl0

来自「编译原理的详细修改和实验报告。。修改了ＰＬ０语言的一些功能。。增加了一部分功能。」· PL0 代码 · 共 14 行

PROGRAM EX01;
VAR A,B;
BEGIN
 READ(A);
 IF A<>3
  THEN
    WRITE(A);
 ELSE
  BEGIN
    B:=1;
    WRITE(B);
  END
END.