Нарисуйте в паскале пожалуйста, как решают в 11 классе

PascalABC.Net 3.2uses GraphABC;begin  Pen.Width:=3;  DrawRectangle(125,325,150,350);  DrawRectangle(225,325,250,350);  var Pt1:=Arr((100,325),(125,300),(150,300),(175,325),    (175,350),(150,375),(125,375),(100,350),(100,325));  DrawPolygon(Pt1);  Pt1:=Arr((200,325),(225,300),(250,300),(275,325),    (275,350),(250,375),(225,375),(200,350),(200,325));  DrawPolygon(Pt1);  Line(125,300,275,100);  Line(175,325,275,100);  Line(200,325,100,100);  Line(250,300,100,100)end.