Нарисовать эллипс вертикально — Pascal(Паскаль)

uses graph;
var xc,yc:integer;
begin
xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 3;
yc:=getmaxY div 2;
ellipse(xc,yc,0,360,50,100);
fillellipse(2*xc,yc,50,100);
readln
end.