Question

помогите нарисовать по фото в паскале ABC.net . пожалуйста!!!
Даю 35 баллов. Распишите по командно прошу. ( тип begin и т.д )
Пожалуйста

Answer 1

uses graphabc;
begin
setwindowsize(600,450);
setpenwidth(3);
line(200,150,350,150);
line(350,150,350,250);
line(350,250,450,250);
line(450,250,450,350);
line(200,150,200,250);
line(200,250,100,250);
line(100,250,100,350);
circle(160,360,40);
circle(355,360,40);
line(100,350,120,350);
line(450,350,395,350);
line(200,350,317,350);
rectangle(225,175,325,225);
arc(450,300,40,90,-90);
line(495,270,520,240);
line(500,295,550,295);
line(500,320,550,355);
end.