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

Question

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

---

Comments

у нас решают так:

---

Program primer;uses GraphABC;beginSetPenWidth(3);SetPenColor(clPurple);Line(140,40,80,140);Line(80,140,200,140);Line(200,140,140,40);FloodFill(100,120,clBlue);SetPenColor(clRed);SetBrushColor(clGreen );Rectangle(80,140,200,240);SetPenColor(clNavy );SetBrushColor(clBrown );Circle(140,100,20);end.

Answer 1

PascalABC.Net 3.2

uses 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.

---