{pulsiruyushii ellipse}

Program p12_8;

Uses graph,crt;

var d,m,a,b: integer;



Begin

D:=detect;

Initgraph (d, m, 'c:\lang\tp\bgi\');

a:=150;

b:=150;

delay(1000);

setcolor(14);

ellipse(320,240,0,360,a,b);

repeat



repeat

 setcolor(0);

 ellipse(320,240,0,360,a,b);

 setfillstyle(1,0);

 floodfill(320,240,0);

 dec(b);

 dec(a);

 setcolor(14);

 ellipse(320,240,0,360,a,b);

 setfillstyle(1,14);

 floodfill(320,240,14);

 delay(15);

until (b=5);

repeat

 setcolor(0);

 ellipse(320,240,0,360,a,b);

 setfillstyle(1,0);

 floodfill(320,240,0);

 Inc(b);

 Inc(a);

 setcolor(14);

 ellipse(320,240,0,360,a,b);

 setfillstyle(1,14);

 floodfill(320,240,14);

 delay(15);

until (b=150);



until keypressed;

readln;

End.