с информатикой Я там что то пыталась написать...но не уверена,что это правильно с информатикой Я там что то пыталась написать...но не уверена,что это пра">

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).

Исполнитель Калькулятор.1.Степень(число,степень)2.Корень(число,степень)3.Сложение(число,число2)4.Умножение(число,число2)5.Деление(число,число2)6.Вычитание(число,число2)7.Вывод(алг)-выводит результат алгоритма8.Если(условие)9.скобка1 скобка2-для содержания операторов в условииначало конец - для содержания всего алгоритма10.Ошибка - сообщает об ошибке и прекращает выполнение алгоритма11.Ввод(x)-считывает числа, введённые пользователем
Пример: Найти квадратный корень из числа 9
НачалоКорень(9,2)Вывод(алг)Конец
Пример: Разделить 7 на x
НачалоВвод(x);Если(x=0)скобка1Ошибкаскобка2Деление(7,x)Вывод(алг)Конец
Пример: Возвести х в степень у
НачалоВвод(х,у)Степень(х,у)Вывод(алг)Конец
Калькулятор находит сумму, разность, произведение, частное, возводит в степень или извлекает корень согласно введённым пользователем данным, либо заданным по умолчанию.