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

program zz1;

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

begin

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

read (a);

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

read (r);

if r < a * sqrt (2) / 2 / / проверяем по формуле описанной окружности

then write (' Квадрат не вписан в круг ') / / выводим ответ

else write (' Квадрат вписан в круг ');

end.