PROGRAM CIRCLE(INPUT,OUTPUT,GRAPHIC);                       
                                                            
 VAR A,B,C,D,E: INTEGER;                                    
                                                            
                                                            
BEGIN                                                       
 GRAPHIC(2,1);                                              
 REPEAT                                                     
   DISPLAY(1,0,19,'');READLN(A,B,C,D,E);                    
   CIRCLE(1,100,100,40,A,B,C,D,E);                          
 UNTIL FALSE;                                               
END.