Нарисовать эллипс, не используя оператор CIRCLE - Turbo Pascal

Формулировка задачи:

Нарисовать эллипс, не используя оператор CIRCLE. Уравнение эллипса X2/A2 + Y2/B2 = 1

 
program laba13;
uses graph,crt;
var x,y,i,gd,gm,a,b:integer;
begin
clrscr;
writeln('Vvedit a');
readln(a);
writeln('Vvedit b');
readln(b);
gd:=0;
initgraph(gd,gm,'');
x:=getmaxx div 2;
y:=getmaxy div 2;
setcolor(red);
if b>a then moveto(x+b,y-a) else moveto(b div 2,y);
for i:=0 to 360 do
lineto(x-round(a*cos(i*pi/180)),y+round(b*sin(i*pi/180)));
readkey;
closegraph;
 
end.

Вот часть не знаю что дальше.

Решение задачи: «Нарисовать эллипс, не используя оператор CIRCLE»

Листинг программы

uses graph,crt;
var x0,y0,x,y,a,b:integer;
    u:real;
begin
clrscr;
repeat
write('a[50..300] a=');
readln(a);
until(a>=50)and(a<=300);
repeat
write('b[50..200] b=');
readln(b);
until(b>=50)and(b<=200);
initgraph(x0,y0,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
u:=0;
moveto(x0+round(a*cos(u)),y0-round(b*sin(u)));
setcolor(12);
while u<=2*pi do
 begin
  lineto(x0+round(a*cos(u)),y0-round(b*sin(u)));
  u:=u+0.01
 end;
readln
end.

Объяснение кода листинга программы

В начале кода подключаются необходимые библиотеки graph и crt.
Объявляются переменные x0, y0, x, y, a, b: integer; и u: real.
Выполняется очистка экрана с помощью функции clrscr.
Запускается цикл repeat, который будет выполняться до тех пор, пока условие (a>=50)and(a<=300) и (b>=50)and(b<=200) выполняется.
Внутри цикла запрашивается значение переменных a и b с помощью функции readln.
Выполняется инициализация графического контекста с помощью функции initgraph, передавая в нее координаты x0, y0 и пустую строку в качестве имени окна.
Значения переменных x0 и y0 вычисляются как половина максимальных значений x и y.
Переменная u инициализируется значением 0.
Выполняется цикл while, который будет выполняться до тех пор, пока значение переменной u не превысит 2*pi.
Внутри цикла вычисляется значение x и y с помощью формулы (x0+round(acos(u)), y0-round(bsin(u))), где cos и sin - функции, вычисляющие cos и sin соответственно.
Устанавливается цвет шрифта на 12 с помощью функции setcolor.
Выполняется движение курсора к точке (x0+round(acos(u)), y0-round(bsin(u))) с помощью функции moveto.
Цвет фона меняется на черный с помощью функции gotoxy.
Значение переменной u увеличивается на 0.01.
Выполняется выход из цикла while с помощью оператора end.
Завершается цикл repeat с помощью оператора end.
Выводится сообщение readln.
Конец программы.