Составить программу S треугольника по формуле Герона, если известны все его стороны

Begin

var a, b, c, d: real;

WriteLN ('Сторона A:') ;

ReadLN (a) ;

WriteLN ('Сторона B:') ;

ReadLN (b) ;

WriteLN ('Сторона C:') ;

ReadLN (c) ;

d : = a+b+c;

WriteLN ('P=', d) ;

WriteLN ('Если P=', d, ' то p = ', d/2) ;

WriteLN ('По формуле герона Под корнем (p-a*p-b*p-c) ', sqrt ((d-a) * (d-b) * (d-c))) ;

end.