Определить, можно ли квадрат со стороной a поместить в окружность заданного радиуса r? входные данные: во входном потоке задано два вещественных числа - радиус окружности r и сторона квадрата a. значение всех исходных величин не превышает 30000. выходные данные: в выходной поток вывести 'yes' или 'no'. пример входного файла 2 1 пример выходного файла yes
Program BiFi;
Var R,a:real;
Begin
readln(R,a);
if a<=(R*sqrt(2)) then writeln('Yes');
else writeln('NO');
readln;
end.