Нарисовать букву "З" - Pascal ABC

Нарисовать букву З в pascal ABC пожалуйста.

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

uses
  graphabc;
var
  x,y,r:integer;
begin
  x:=100;
  y:=100;
  r:=75;
  arc(x,y,r,135,-90);
  arc(x,y+2*r,r,90,-135);  
end.

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

В начале объявляются три переменные: x, y и r, которые будут использоваться в коде.
Переменная x устанавливается равной 100, переменная y устанавливается равной 100, а переменная r устанавливается равной 75.
Затем вызывается функция arc, которая рисует дугу окружности. В качестве аргументов функции передаются координаты начала дуги (x, y), радиус дуги (r), угол начала дуги (135°) и угол конца дуги (-90°).
После этого вызывается еще одна функция arc, которая рисует вторую дугу окружности. В этом случае координаты начала дуги (x, y+2*r), радиус дуги (r) и угол начала дуги (90°) передаются в качестве аргументов.
Код заканчивается.