Построить кривые по заданному параметрическому представлению

program Snail;uses
Crt,
Graph;const
grPath = 'C:\LAN\BP\BGI';
A = 50;
B = 70;
 
var
grDriver, grMode: Integer;
MidX, MidY: Integer; {координаты центра экрана}
g: Integer; {счетчик в градусах}
t: Real; {счетчик в радианах}
X, Y: Real; {текущие координаты}
 
begin
grDriver := Detect;
InitGraph(grDriver, grMode, grPath);
MidX := GetMaxX div 2;
MidY := GetMaxY div 2;
{Рисуем оси}
Line(0, MidY, GetMaxX, MidY);
Line(MidX, 0, MidX, GetMaxY);
{Цикл от 0 до 2Пи}
for g := 0 to 360 do begin
t := g * Pi / 180;
X := MidX + A * Sqr(Cos(t)) + B * Cos(t);
Y := MidY + A * Cos(t) * Sin(t) + B * Sin(t);
if g = 0 then
MoveTo(Round(X), Round(Y))
else
LineTo(Round(X), Round(Y));
end;
ReadKey;
CloseGraph;
end.

program Snail;
uses GraphABC;const
A = 50;
B = 70;
var
grDriver, grMode: Integer;
MidX, MidY: Integer; {координаты центра экрана}
g: Integer; {счетчик в градусах}
t: Real; {счетчик в радианах}
X, Y: Real; {текущие координаты}
begin
SetWindowTitle ('Улитка паскаля');
MidX := WindowWidth div 2;
MidY := WindowHeight div 2;
{Рисуем оси}
Line(0, MidY, WindowWidth, MidY);
Line(MidX, 0, MidX, WindowHeight);
{Цикл от 0 до 2Пи}
for g := 0 to 360 do begin
t := g * Pi / 180;
X := MidX + A * Sqr(Cos(t)) + B * Cos(t);
Y := MidY + A * Cos(t) * Sin(t) + B * Sin(t);
if g = 0 then
MoveTo(Round(X), Round(Y))
else
LineTo(Round(X), Round(Y));
end;
end.

uses
    graph;
 
var
    g, h, i, x, y, r: integer;
 
begin
    g := detect;
    initgraph(g,h,'');
 
    randomize;
    for i := 1 to 30 do begin
        setcolor(random(15));
        x := random(1000) + 100;
        y := random(800) + 100;
        r := random(100);
        circle(x,y,r);
    end;
 
readln
end.

uses graphABC;
type Okr=record
         r,c:integer;//радиус и цвет окружности
         end;
const n=10;
var a:array[1..n] of Okr; //массив окружностей
    i,j:integer;
    x:Okr;
begin
randomize;
for i:=1 to n do
 begin
  a[i].c:=RGB(random(255),random(255),random(255));
  a[i].r:=random(25)+2;
  setpencolor(a[i].c);
  circle(i*60,60,a[i].r);
 end;
for i:=1 to n-1 do  //сортироака прямым обменом, заменишь на пузырек
for j:=i+1 to n do
if a[i].r>a[j].r then //по увеличению радиуса
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
for i:=1 to n do//вывод отсортированных
 begin
  setpencolor(a[i].c);
  circle(i*60,200,a[i].r);
 end;
end.