Дан круг с радиусом 2:√3 . Можно ли вписать в него треугольник со стороной а — Pascal(Паскаль)

var
r,a,b:real;
begin
r:=2/sqrt(3);
a:=sqrt(sqr(r)-sqr(r/2))*2;
writeln('vvedite soronu treugolnika');
readln(b);
if b<=a then writeln('voydyot')else writeln('nevoydyot');
readln;
end.