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

Формулировка задачи:

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

Решение задачи: «Определите площадь заштрихованной части фигуры, если известна стороны квадрата»

Листинг программы

var
  a: real;
begin
  write('Введите сторону квадрата: ');
  readln(a);
  writeln('Площадь заштрихованной фигуры = ',(a*a+pi*sqr(a/2))/2:0:3);
  readln;
  readln;
end.

Объяснение кода листинга программы

В начале программы объявляется переменная a типа real (число с плавающей точкой).
Далее пользователю предлагается ввести сторону квадрата с помощью функции readln().
Затем вычисляется площадь заштрихованной части фигуры по формуле: (aa+pisqr(a/2))/2.
Результат вычислений выводится на экран с помощью функции writeln().
В конце программы вызываются функции readln() и readln() для завершения работы программы.