PROGRAM ellissoide(output);
uses
Graph;
var
grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
a:integer;
begin
grDriver := Detect;
InitGraph(grDriver,grMode,'');
ErrCode := GraphResult;
if ErrCode = grOk then
begin
{ Do graphics }
for a:=0 to 20 do
ellipse(320,240,0,360,a*10,100);
for a:=0 to 10 do
ellipse(320,240,0,360,200,a*10);
ReadLn;
CloseGraph;
end
else
WriteLn('Graphics error:',
GraphErrorMsg(ErrCode));
end.