Дан круг радиуса R. Определить, поместиться ли правильный треугольник со сторонами а в этом круге. Для программы Pascal.

Program Pr1;uses crt;var r:integer; b,a:real;Beginclrscr;writeln('Введите R и a');readln(r,a);b:=sqrt(a-(a/2));if (b<r) and (a/2<r) then writeln('Поместится')else writeln('Не поместится');end.