all2.pl0

此源码是编译器原理代码

PROGRAM ALLPRO;
VAR A,B,C,D,E,F,G;
BEGIN
  A:=88;
  READ(B);
  IF B>0 THEN
   C:=A+B
  ELSE
   C:=1;
  A-=1;
  B+=5*5;
  WRITE(A,B,C);
  FOR D:=1 TO 6 DO
  WRITE(D);
  FOR E:=5 DOWNTO 0 DO
  WRITE(E);
END.