Вывести значок Google в графическом режиме - Turbo Pascal

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

Никак не могу разобраться с координатами. И да, можно ли добавить какие нибудь эффекты? анимацию появления значка, итд.?

Решение задачи: «Вывести значок Google в графическом режиме»

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

uses GraphABC;
const  r=50;
var x,y:integer;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
setpenwidth(10);
arc(x,y,r,45,360);
line(x,y,x+r,y);
end.

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

В начале кода используется библиотека GraphABC, которая предоставляет возможности для работы с графическим режимом.
Константа r и переменные x и y инициализируются значениями, равными половине ширины и высоты окна соответственно.
Функция setpenwidth устанавливает ширину пера в 10 единиц.
Функция arc выполняет дугу окружности с параметрами x, y, радиуса r и углов 45 и 360 градусов.
Функция line рисует прямую линию от координат (x, y) до координат (x+r, y).
Конец программы.