1) Даны круг и квадрат. Составьте программку, определяющую по введенным вами

program zz1;
var a, r:real; // задаем переменные не целого типа
begin
write( введите длину стороны квадрата ); // вводим с клавиатуры заданную сторону квадрата
read(a);
write( введите радиус круга ); // вводим с клавиатуры заданный радиус круга
read(r);
if r lt; a * sqrt(2)/2 // проверяем по формуле описанной окружности
then write( Квадрат не вписан в круг ) // выводим ответ
else write( Квадрат вписан в круг );
end.