Может ли шар радиуса r пройти через ромбовидное отверстие с диагоналями p и q ?- Pascal(Паскаль)

program qq;
var a,p,r,q:real;
begin 
writeln('Введите радиус r');
read(r);
writeln('Введите диагональ p');
read(p);
writeln('Введите диагональ q');
read(q);
a:=(p*q)/(4*r);
if (r<(p*q)/(4*a)) then
writeln('yes')
else
writeln('no');
end.