Прямоугольник с закругленными углами - Pascal ABC

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

Нужно нарисовать в паскале знак. подскажите, как нарисовать прямоугольник с закругленными углами?) ну если не сложно можно нарисовать полностью

Решение задачи: «Прямоугольник с закругленными углами»

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

uses graphabc;
begin
SetBrushColor(clBlue);
roundrect(100,100,200,200,30,30);
SetBrushColor(clRed);
rectangle(135,100,145,130);
line(130,130,150,130);
line(150,130,140,155);
line(140,155,130,130);
floodfill(140,150,clred);
SetBrushColor(clwhite);
rectangle(150,200,160,160);
line(145,160,165,160);
line(165,160,155,135);
line(155,135,145,160);
floodfill(150,150,clwhite);
end.

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

Импортируется библиотека graphabc.
Устанавливается цвет кисти на синий.
Рисуется прямоугольник с закругленными углами размером 200x200, смещением 100x100, с радиусом закругления углов 30x30.
Устанавливается цвет кисти на красный.
Рисуется прямоугольник размером 140x130, смещением 135x100.
Рисуется линия длиной 130x130, смещением 150x130, шириной 140x155.
Рисуется линия длиной 140x155, смежением 130x130, шириной 130x160.
Заполняется область размером 140x150 цветом clred (красный).
Устанавливается цвет кисти на белый.
Рисуется прямоугольник размером 150x160, смежением 150x200.
Рисуется линия длиной 145x160, смежением 165x160.
Рисуется линия длиной 165x160, смежением 155x135.
Рисуется линия длиной 155x160, смежением 145x160.
Заполняется область размером 150x150 цветом clwhite (белый).
Программа завершается.