New

Program Chas;

   Uses GraphABC;

Begin

SetWindowSize (600,750);

Rectangle (150,150,450,450);

Line(300,450,200,650);               

Circle (200,650,50);                 

FloodFill (180,220, clMaroon);  

FloodFill (200,650, clred);

End.