Задача в программке Pascal : Ввести стороны прямоугольникаa и ba ,

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.

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