uses crt,graph;
var   x,y:integer;a,b,Rx,Ry:integer;
      grdriver, grmode, errcode: integer;
begin
  grDriver := detect;
  InitGraph(grDriver, grMode, '');
  ErrCode := GraphResult;
  if ErrCode <> grOk then begin
    Writeln('Graphic errore');
    writeln('Press Enter to halt()');
    readln; halt(100);
  end;
x:=100;y:=100;a:=100;b:=8;Rx:=50;Ry:=100;
setcolor(9);
ellipse(x,y,a,b,Rx,Ry);
readln;
end.