Помогите пожалуйста необходимо написать программу в паскале. Задачка 1.

А рисунка нет?

Нет к раскаянию

Дам 50 баллов

Боже да как это делать ??!!!

1. Ну я не знаю какая часть фигуры закрашена. Будем считать что прямоугольник находиться в окружности и нужно из площади курга отнять площадь прямоугольника.
const
p =3.14;
var
a,b,r,s1,s2:real;
begin
Writeln('Введите длины сторон прямоугольника');
readln(a,b);
Writeln('Введите радиус окуржности');
Readln(r);
s1:=a*b;
s2:=p*sqr(r);
Writeln('Площадь закрашеной окружности = ', s2-s1);
end.

Если закрашена какая-то иная область то можете просто поменять деяние с площадями в предпоследней строке ( в данном случае мы из s2 вычитаем s1).