Нарисовать вращающийся треугольник - Pascal ABC

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

1.Нарисовать вращающийся треугольник 2.Составить программу, которая спрашивает у пользователя, в каком направлении должен двигаться шар: 1 – по горизонтали, 2 – по вертикали и какого цвета; и показывает нужное направление движения. 3.Написать программу, которая спрашивает у пользователя, как должен вести себя шар: 1 –расти из центра до границ экрана или 2 – уменьшаться от границ экрана к центру и его цвет; и показывать соответствующее изменение шарика.

Решение задачи: «Нарисовать вращающийся треугольник»

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

uses graphABC;
var x,y,a,b,c,r1,r2:integer;
begin
setwindowsize(500,500);
centerwindow;
x:=windowwidth div 2;
y:=windowheight div 2;
a:=270;
b:=360;
c:=90;
r1:=200;
r2:=160;
lockdrawing;
repeat
  clearwindow;
  setpencolor(clRed);
  setbrushcolor(clRed);
  Pie(x,y,r1,a,b);
  Pie(x,y,r2,b,c);
  sleep(10);
  a:=a+1;
  b:=b+1;
  c:=c+1;
  redraw;
until false;
end.

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

Подключается библиотека graphABC.
Объявляются переменные x, y, a, b, c, r1, r2:integer.
Вызывается функция setwindowsize(500,500) для установки размера окна.
Вызывается функция centerwindow для выравнивания окна по центру экрана.
Вычисляются координаты x и y центра окна.
Переменные a, b, c инициализируются значениями 270, 360, 90 и 180 соответственно.
Переменные r1 и r2 инициализируются значениями 200 и 160 соответственно.
Включена блокировка рисования.
Запускается цикл repeat.
Очищается окно.
Устанавливается цвет шрифта и кисти в красный.
Вызывается функция Pie(x,y,r1,a,b) для создания вращающегося треугольника с центрами в точке (x,y) и сторонами a, b и c.
Вызывается функция Pie(x,y,r2,b,c) для создания второго вращающегося треугольника с центрами в точке (x,y) и сторонами b, c и a.
Вызывается функция sleep(10) для задержки выполнения программы на 10 миллисекунд.
Переменные a, b и c увеличиваются на единицу.
Вызывается функция redraw для обновления окна.
Цикл repeat повторяется до тех пор, пока false не станет истинным.
Выключена блокировка рисования.
Программа завершается.