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.
program pr1;
uses graphabc;
var
x:integer;
begin
lockdrawing;
for x:=1 to 500 do
begin
clearwindow;
ellipse(x,100,x+100,200);
redraw;
sleep(1);
end;
end.