{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.