Question

В квадрат вписана окружность. Определите площадь заштрихованной части фигуры, если известен радиус окружности

Answer 1

var s,r:real;
begin
writeln('Введите радиус: ');
readln(r);
s:=sqr(r)*(4-Pi)/2;
writeln('Ответ: ',s);
end.