Написать программы чтобы в конце программ выдалось это изображение - Turbo Pascal

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

написать две программы чтобы в конце программ выдалось это изображение $ и ромб

Решение задачи: «Написать программы чтобы в конце программ выдалось это изображение»

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

uses graph;
var xc,yc,y1,r:integer;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
y1:=3*yc div 4;
r:=yc-y1;
arc(xc,y1,60,270,r);
y1:=getmaxY-y1;
arc(xc,y1,240,360,r);
arc(xc,y1,0,90,r);
line(xc,y1+r+30,xc,y1-yc+r-30);
readln
end.

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

В начале кода используется библиотека graph, которая отвечает за работу с графиком.
Переменные xc, yc и y1 инициализируются значениями, полученными от функции getmaxX и getmaxY соответственно.
Переменная r вычисляется как разность между переменными yc и y1.
Затем выполняется функция arc, которая рисует окружность на графике. У аргументов функции arc следующие значения: xc, y1, 60, 270, r. Это означает, что окружность будет нарисована с центром в точке (xc, y1), радиусом r и углом 60 градусов.
После этого переменная y1 обновляется, чтобы отразить изменение положения верхней точки окружности.
Затем выполняется еще одна функция arc, которая рисует вторую окружность на графике. У аргументов функции arc следующие значения: xc, y1, 240, 360, r. Это означает, что окружность будет нарисована с центром в точке (xc, y1), радиусом r и углом 240 градусов.
После этого переменная y1 снова обновляется, чтобы отразить изменение положения верхней точки окружности.
Наконец, выполняется функция line, которая рисует линию между двумя точками на графике. У аргументов функции line следующие значения: xc, y1+r+30, xc, y1-yc+r-30. Это означает, что линия будет нарисована от точки (xc, y1+r+30) до точки (xc, y1-yc+r-30).
Программа завершается командой readln, которая ожидает ввода пользователя.