for.pl0

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

PROGRAM PLUSBK0;
VAR A;
BEGIN
  FOR A:=1 TO 3 DO
    WRITE(A);
  FOR A:=5 DOWNTO 1 DO
    WRITE(A);
END.