program pr1;uses graphabc;
var x:integer;
beginlockdrawing;for x:=1 to 500 do begin clearwindow; ellipse(x,100,x+100,200); redraw; sleep(1); end;end.
