1. var a, r: real;
begin
Readln (r, a);
If 2*r*r>=a*a then
Writeln ('YES')
Else
Writeln ('NO');
End.
Объяснение:
1. var a, r: real;
begin
Readln (r, a);
If 2*r*r>=a*a then
Writeln ('YES')
Else
Writeln ('NO');
End.
Объяснение: