Даны круг радиуса r1 и квадрат со стороной а.поместится ли круг в квадрате? вывести результат.r=a/2*√3(ввода r1,a.расчет r.сравнить r и r1

Var a,r : Real;
Begin
  Readln(r,a);
  If a/2<r then Writeln('Поместится') else Writeln('Не поместится');
end.