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

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.