uses graph,crt;
var
x,e,y,gd,gm,i, PixelColor:integer;

begin
gd:=detect;
Randomize;
initgraph(gd,gm,"c:\tp\bgi");
if graphresult <> grok then
halt(1);
repeat
setcolor(random(90));setbkcolor(random(50)); outtextxy(x+random(999),y+random(999),"hamid");
circle(x+random(999),y+random(999),3 );
PieSlice(random(999),random(999),random(99),random(103),random(3));
PixelColor := GetPixel(random(30), random(30));
PutPixel(random(999),random(999), random(30));
Line(Random(999), Random(999), Random(20), Random(20));
delay(50);

until KeyPressed;
end.