program animacio; uses graph,crt; var gd,gm:smallint; i:integer; begin gd:=detect; initgraph(gd,gm,''); setcolor(yellow); circle(50,50,40); OutTextXY(10,150,'Animacio!'); for i:=0 to 400 do begin setcolor(yellow); circle(50+i,50,40); delay(50); setcolor(black); circle(50+i,50,40); end; OutTextXY(80,150,'Vege!'); readln; closegraph; end.