График эпициклоиды - Pascal ABC

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

пожалуйста меня нужен программа в паскал абс эпициклоида помогите

Решение задачи: «График эпициклоиды»

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

uses graphABC;
const a=10;
      b=21;
var
  c,x,y:integer;
  f,m:real;
begin
setwindowsize(500,500);
centerwindow;
c:=250;
m:=(c-20)/(2*a+b);
f:=0;
setpencolor(clRed);
repeat
x:=round(m*((b+a)*cos(f)-a*cos((b+a)*f/a)));
y:=round(m*((b+a)*sin(f)-a*sin((b+a)*f/a)));
if f=0 then moveto(c+x,c-y) else lineto(c+x,c-y);
f:=f+0.1;
until f>=b*pi;
end.

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

Установка размера окна и его центровка с помощью функций setwindowsize и centerwindow.
Установка начального значения переменной c равным 250.
Вычисление значения переменной m как (c-20)/(2*a+b).
Установка начальной точки цикла f равной 0.
Установка цвета пера на красный с помощью функции setpencolor(clRed).
Повторяющийся цикл от f=0 до f>=b*pi с шагом 0.1 с помощью цикла repeat...until.
Вычисление значений переменных x и y как m*((b+a)*cos(f)-a*cos((b+a)*f/a)) и m*((b+a)*sin(f)-a*sin((b+a)*f/a)) соответственно.
Округление значений переменных x и y с помощью функции round.
Перемещение пера к точке (c+x,c-y) при f=0 и рисование линии между точками (c+x,c-y) и (c+x,c-y) при f>0 с помощью функций moveto и lineto.
Увеличение значения переменной f на 0.1 после каждой итерации цикла.
Цикл завершается, когда значение переменной f достигает b*pi.
Код не содержит обработки ошибок или исключений.
Код не содержит комментариев или пояснений.
Не указаны единицы измерения для переменных a, b, c, f, m, x и y.
Не указаны действия после завершения цикла.
Не указаны действия при достижении переменной f значения b*pi.
Не указаны действия при нажатии клавиши во время выполнения программы.
Не указаны действия при закрытии программы.
Не указаны действия при изменении размера окна.
Не указаны действия при изменению цветовой схемы или режима рисования.