www.pudn.com > 453.rar > E01.COD

=== COMPILE PL0 === 
  0 PROGRAM E01;  
  0 VAR A,B,I;  
  1 BEGIN  
  2  A:=10;  
  4  READ(B);  
  6  IF B>A THEN   
  9  FOR I:=B  
 11  DOWNTO A  
 14  DO   
 16  WRITE(I)  
 18  ELSE IF B