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

program zz1;

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

begin

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

read(a);

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

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

end.