=== COMPILE PL0 ===
  0 PROGRAM MAIN; 
  0 VAR A,B,C; 
  1 BEGIN 
  2   READ(A); 
  4   FOR B:=0 TO 2 DO 
 10   BEGIN 
 10     C:=A+1; 
 14     WRITE(C); 
 17   END; 
 21   FOR B:=2 DOWNTO 1 DO 
 27     WRITE(C); 
 34 END. 
~~~ RUN PL0 ~~~
? 1
2
2
2
2
2
~~~ END PL0 ~~~