program  rm;
 uses  crt, graph;
 var  a,x,y:integer;
 begin 
initgraph (x,y,'c:\program');

 {JIyHa} 
setcolor ( 15 );
circle ( 570 , 70 , 50 );
setfillstyle ( 1 , 15 );
floodfill ( 570 , 70 , 15 );

 {pakeTa} 
setcolor ( 14 );
line ( 200 , 150 , 200 , 300 );
line ( 300 , 150 , 300 , 300 );
setfillstyle ( 1 , 14 );
floodfill ( 200 , 150 , 14 );
line ( 200 , 150 , 300 , 150 );
line ( 200 , 300 , 300 , 300 );
line ( 200 , 300 , 170 , 350 );
line ( 300 , 300 , 330 , 350 );
line ( 170 , 350 , 330 , 350 );

line ( 200 , 150 , 250 , 100 );
line ( 300 , 150 , 250 , 100 );
line( 150 , 270 , 200 , 270 );
line ( 200 , 200 , 150 , 270 );
line ( 300 , 270 , 350 , 270 );
line ( 300 , 200 , 350 , 270 );

 {3eMJI9} 
setcolor ( 6 );
setfillstyle ( 1 , 10 );
bar ( 1 , 352 , 700 , 550 );

 {kpyru y pakeTbi} 
setcolor ( 8 );
circle ( 250 , 180 , 20 );
setfillstyle ( 1 , 8 );
floodfill ( 250 , 180 , 8 );

 {3Be3qbi} 
 for  a:= 1   to   50    do   begin 
delay( 60000 );
putpixel (random ( 800 ),random ( 500 ),white);
 end ;
readln;
 end .