Паскаль: Написать программу, которая подсчитывает радиус окружности, вписанной в равносторонний треугольник со стороной a. Срочно помогите, прошу)

спасибо

Естественно не в строчку пиши, а с новой строки каждую строку)

ок, спасибо огромное

var  a,b,c,p,s,r1:real;begin  write('Введите стороны треугольника: ');  Read(a,b,c);  p:=a+b+c;  s:=sqrt(p2*(p2-a)*(p2-b)*(p2-c));  r1:=s/p;   writeln('R1=',r1)end.