Известны длина стороны квадрата и радиус окружности.Определить поместиться ли квадрат в окружность. Как составить программу в паскаль?

Предыдущий
вопрос Следующий
вопрос

Для определения того, поместится ли квадрат в окружность, необходимо сравнить диагональ квадрата с диаметром окружности. Если диагональ квадрата меньше или равна диаметру окружности, то квадрат поместится внутри окружности.

Пример программы на Pascal:

program SquareInCircle;
var
sideLength, radius, diagonal, diameter: real;
begin
// ввод данных
writeln('Введите длину стороны квадрата: ');
readln(sideLength);
writeln('Введите радиус окружности: ');
readln(radius);
// вычисление диагонали квадрата
diagonal := sqrt(2) * sideLength;
// вычисление диаметра окружности
diameter := 2 * radius;
// проверка условия
if diagonal <= diameter then
writeln('Квадрат поместится внутри окружности')
else
writeln('Квадрат не поместится внутри окружности');
end.

Эта программа сначала запрашивает у пользователя длину стороны квадрата и радиус окружности, затем вычисляет диагональ квадрата и диаметр окружности, и, наконец, сравнивает их для определения того, поместится ли квадрат внутри окружности.