ДАЮ 40 БАЛЛОВ!!! Составьте программу, которая выполняет чертёж из деталей.

сам ответ смотри

спасибо огромное

а можно line написать числами?

конечно

я не могу понять какие числа надо писать, там где надо сделать дугу

uses graphABC;var xc,yc,a,b,r:integer;s:real;st:string;beginxc:=windowwidth div 2;yc:=windowheight div 2;a:=240;b:=120; r:=60;setpenwidth(3);arc(xc,yc-r,r,180,360);line(xc-b,yc-r,xc-r,yc-r);line(xc+b,yc-r,xc+r,yc-r);line(xc-b,yc-r,xc-b,yc+r);line(xc+b,yc-r,xc+b,yc+r);line(xc-b,yc+r,xc+b,yc+r);s:=a*b-pi*r*r/2;str(s:0:2,st);textout(xc-30,y+20,'S='+st);end.