Дана а сторона квадрата найти площадь вписанного круга составить программу

program zz1;

var a, s:real; / / задаем переменные не целого типа

begin

write (' введите длину стороны квадрата '); / / вводим с клавиатуры заданную сторону квадрата

read (a);

s:=pi * sqr (a / 2); / / вычисляем площадь вписанного круга по формуле

write (' площадь вписанного круга = ', s:6:2) / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.