Рисование (Шестерёнки)

[AwePascal]

Можете, пожалуйста, нарисовать 2 шестерёнки( самые простые, можно не круглые), которые должны вращаться и быть соединёнными(ну работа обычных шестерёнок). PascalABC.NET
Пример формы шестерёнок:

program z21;
uses graphABC;
Begin
Line(200,100,240,100);
Line(200,130,240,130);
Line(200,100,200,130);
Line(240,100,240,60);
Line(240,60,270,60);
Line(270,60,270,100);
Line(270,100,310,100);
Line(310,100,310,130);
Line(310,130,270,130);
Line(270,130,270,170);
Line(270,170,240,170);
Line(240,170,240,130);
end.