for.pl0

来自「编译原理的课程设计,对PL0程序的修改与扩充,内附测试程序,即以.PL0为扩展名」· PL0 代码 · 共 12 行

PROGRAM MAIN;
VAR A,B,C;
BEGIN
  READ(A);
  FOR B:=0 TO 2 DO
  BEGIN
    C:=A+1;
    WRITE(C);
  END;
  FOR B:=2 DOWNTO 1 DO
    WRITE(C);
END.