var
 r,a:integer;
 b:boolean;
begin
writeln ('Введите радиус');
readln (r);
writeln ('Сторону квадрата');
readln (a);
b:=sqrt(a*a*2)<=r+r;
writeln (b);
end.