написать программу определяющую является ли окружность с радиусом r вписанной или описанной около квадрата

var  a,r,rvp,rop:real;begin  Write('Введите сторону квадрата и радиус окружности: ');  Readln(a,r);  rvp:=a/2; rop:=a*sqrt(2)/2;  if r<rvp then Writeln('Окружность расположена внутри вписанной')  else    if r=rvp then Writeln('Введен радиус вписанной окружности')    else      if r<rop then Writeln('Окружность расположена между вписанной и описанной')      else        if r=rop then Writeln('Введен радиус описанной окружности')        else Writeln('Окружность расположена вне описанной')end.Тестовое решение:Введите сторону квадрата и радиус окружности: 8 5Окружность расположена между вписанной и описанной