=== COMPILE PL0 ===
  0 PROGRAM EX01; 
  0   VAR A,B,C:INT; 
  1        
  1  
  1 BEGIN 
  2   C:=9; 
  4   A:=0; 
  6   B:=2; 
  8  
  8    REPEAT 
  8     A:=A+1; 
 12   UNTIL A=10; 
 16  
 16   FOR A:=10 DOWNTO 1 
 20  
 20   DO 
 30     B:=100; 
 33  
 33   FOR A:=1 TO 10 
 37  
 37   DO 
 48     C:=100; 
 51  
 51  WRITE(A); 
 54  
 54 END. 
~~~ RUN PL0 ~~~
9
~~~ END PL0 ~~~