Procedure Ellipse ( x1, y1, x2, y2 : integer )

де x1, y1 та x2, y2 - координати двох діаметрально протилежних вершин прямокутника, в який вписується еліпс. Фактичними параметрами при звертанні до процедури Еліпс мають бути вирази цілого типу. Еліпс буде побудований активним олівцем та зафарбований активним пензликом, або не зафарбований, якщо встановлений прозорий колір пензлика.
Після виконання процедури активна графічна позиція не змінюється

Program EllipseDemo;
Begin
Ellipse( 10, 10, 80, 80 );
Pen( 1, 255, 0, 0 );
Ellipse( 60, 10, 0, 90 );
Pen( 1, 0, 0, 255 );
Brush( 1, 255, 255, 0 );
Ellipse( 20, 30, 50, 90 )
end.