Задача в программе 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.

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