Помогите с решением данных задач.

Хоть 1. Благодарю
Даю 60 баллов

1 uses GraphABC;
begin

MoveTo(80,20);
lineTo(20,20);
lineTo(20,140);
lineTo(260,140);
lineTo(260,20);
lineTo(200,20);
Arc(140,20,60,-180,0);

writeln('Площадь: ',120*240-(pi*60*60)/2,'пикс.');
end.

Вроде
Так..
но хз