Впрограмме pascal : ввести стороны прямоугольника a и b a , b = r = может ли данный прямоугольник быть вписанным в данную окружность ?

не может так как грани (угловые) части прямоугольника будут выступать за окружность

var a,b,r: real;

begin

write('Введите стороны прямоугольника: ');

readln(a,b);

write ('Введите радиус окружности: ');

readln(r);

if r=sqrt(a*a+b*b)/2 then writeln ('Данный прямоугольник может быть вписанным в данную окружность')

else writeln('Данный прямоугольник не может быть вписанным в данную окружность')

end.