Построить график гипоциклоиды

uses graphABC;   { подключаем модуль GraphABC для работы }
var A, B, C, x, y: integer;  {объявления переменных}
     t: real;
     r: string;
begin
setwindowsize(500,500);
 
r:= 'yes';
repeat
read(r);
write('Введите А: ');
readln(A);
write('Введите B: ');
readln(B);
write('Введите C: ');
readln(C);
 
if (t<=2*pi)and (t>=0) then
Repeat
x:=round((B-A)*sin(A*t/B)-C*sin((B-A)*t/B));  {вычисление координаты х}
y:=round((B-A)*cos(A*t/b)+C*cos((B-A)*t/B)); {вычисление координаты у}
PutPixel(x,y,clRed);  {вывод точки красного цвета в указнные кординаты}
t:=t+1;  {увеличение счетчика цикла}
until t>3600;  {цикл выполняется, пока значение t не превысит 3600}
sleep(10000);
clearwindow;
until r = 'no';
 
read(r);
 
end.

uses graphABC,crt;   { подключаем модуль GraphABC для работы }
var A, B, C, x, y,x0,y0,k,i,x1,y1,r: integer;  {объявления переменных}
     t: real;
 
begin
//setwindowsize(1000,1000);
 
   x0:=320; y0:=200; k:=30;
   line(x0,20,x0,380);   line(20,y0,620,y0);    {оси координат}
   line(x0,20,x0-10,30);  line(x0,20,x0+10,30);
   line(630,y0,620,y0-10);  line(630,y0,620,y0+10);
   for i:=-10 to 10 do
       begin
       line(x0+(i*k),y0-10,x0+(i*k),y0+10);
       textout(x0+(i*k),y0+10,inttostr(i));
       end;
   for i:=-5 to 5 do
       begin
       line(x0-10,y0+(i*k),x0+10,y0+(i*k));
       if i<>0 then textout(x0+10,y0+(i*k),inttostr(-i));
       end;
r:= clRandom;
write('Введите А: ');
read(A);
write('Введите B: ');
read(B);
write('Введите C: ');
read(C);
if (t<=2*pi)and (t>=0) then
Repeat
x:=round((B-A)*sin(A*t/B)-C*sin((B-A)*t/B)+320);  {вычисление координаты х}
y:=round((B-A)*cos(A*t/b)+C*cos((B-A)*t/B)+200); {вычисление координаты у}
setpixel(x,y,r);  {вывод точки красного цвета в указанные координаты}
t:=t+1;  {увеличение счетчика цикла}
until t>3600;  {цикл выполняется, пока значение t не превысит 3600}
end.

uses graphABC;
var cx,cy,r,r1,h,x,y:integer;
    k,m,t,dt:real;
begin
cx:=320;
cy:=240;
r1:=120;
r:=40;
k:=r1/r;
t:=0;
dt:=0.001 ;
While t<=3*pi do
 Begin
  x:=cx+round(r*(k-1)*(cos(t)+cos((k-1)*t)/(k-1)));
  y:=cy-round(r*(k-1)*(sin(t)-sin((k-1)*t)/(k-1)));
  setpixel(x, y,clRed); 
  t:=t+dt;
 End;
End.