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

PROGRAM E01; 
VAR A,B,I; 
BEGIN 
 A:=10; 
 READ(B); 
 IF B>A THEN  
 FOR I:=B 
 DOWNTO A 
 DO  
 WRITE(I) 
 ELSE IF B