Question

ПОМОГИТЕ СОСТАВИТЬ РЕШЕНИЕ программы в Pascal ABC

Answer 1

// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
uses
  GraphABC;
begin
  Pen.Color:=clRed;
  Line(60,180,60,80);
  Line(60,80,100,40);
  Line(100,40,200,40);
  Arc(260,40,60,180,270);
  Line(260,100,260,140);
  Arc(260,180,40,90,180);
  Line(220,180,60,180);
  Circle(140,120,40)
end.

Результат выполнения программы во вложении.

Answer 2

Большое спасибо))) но я уже поняла как всё это делать(не без помощи конечно),спасибо что не остались равнодушны)))