Составить программку 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.