Определить, превышает ли площадь круга заданную величину Х и вывести сообщение на экран - Turbo Pascal

Круг вписан в квадрат со стороной А. Определить, превышает ли площадь круга заданную величину Х и вывести сообщение на экран.

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

var a, x: Real;
begin
  Write('a x: '); Read(a,x); WriteLn(Pi*Sqr(a/2)>x);
end.

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

В начале объявляются две переменные типа Real: a и x.
Затем выводится сообщение «a x: », чтобы пользователь мог ввести значения переменных a и x.
После чтения значений переменных a и x с помощью функции Read, вычисляется значение числа Пи (Pi) и квадратный корень из половины значения переменной a (Sqr(a/2)).
Далее сравнивается полученное значение с переменной x с помощью оператора greater than (>).
Если полученное значение больше значения переменной x, то выводится сообщение «Pi*Sqr(a/2)>x» с помощью функции WriteLn.
Код завершается после вывода сообщения.