Нарисовать дорожные знаки - Pascal ABC

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

Здравствуйте, помогите, пожалуйста нарисовать дорожные знаки в паскаль АВС

Решение задачи: «Нарисовать дорожные знаки»

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

uses graphABC;
var c,r:integer;
begin
setwindowsize(400,400);
centerwindow;
setpencolor(clRed);
setpenwidth(20);
c:=200;
r:=c-50;
circle(c,c,r);
setpencolor(clBlack);
setpenwidth(5);
circle(c-60,c+20,35);
circle(c+60,c+20,35);
line(c-60,c+20,c-35,c-30);
line(c+60,c+20,c+35,c-30);
line(c-35,c-30,c+35,c-30);
line(c+60,c+20,c+15,c+20);
line(c+15,c+20,c+40,c-40);
line(c+15,c+20,c-40,c-15);
line(c-35,c-30,c-38,c-45);
setpenwidth(8);
line(c-38,c-50,c-28,c-50);
line(c+43,c-40,c+23,c-40);
end.

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

Установка размера окна и его центровка - setwindowsize(400,400); centerwindow;.
Установка цвета и ширины линии для инструмента рисования - setpencolor(clRed); setpenwidth(20);.
Установка значений переменных c и r - c:=200; r:=c-50;.
Рисовка круга с центром в точке c, c и радиусом r - circle(c,c,r);.
Установка цвета и ширины линии для инструмента рисования - setpencolor(clBlack); setpenwidth(5);.
Рисовка двух кругов с радиусом 35 и центром в точках c-60, c+60 и c - circle(c-60,c+20,35); circle(c+60,c+20,35); circle(c,c,35);.
Рисовка двух прямых линий с концами в точках c-60, c+60 и c - line(c-60,c+20,c-35,c-30); line(c+60,c+20,c+35,c-30);.
Рисовка прямой линии с концами в точках c-35, c-30 и c+35, c-30 - line(c-35,c-30,c+35,c-30);.
Рисовка прямой линии с концами в точках c+60, c+20 и c+15, c+20 - line(c+60,c+20,c+15,c+20);.
Рисовка прямой линии с концами в точках c+15, c+20 и c+40, c-40 - line(c+15,c+20,c+40,c-40);.
Рисовка прямой линии с концами в точках c+15, c+20 и c-40, c-15 - line(c+15,c+20,c-40,c-15);.
Рисовка двух прямых линий с концами в точках c-38, c-50 и c-28, c-50 - line(c-38,c-50,c-28,c-50);.
Рисовка двух прямых линий с концами в точках c+43, c-40 и c+23, c-40 - line(c+43,c-40,c+23,c-40);.
Завершение работы программы - end;.