как решить программу вычисления площади треугольника по 3 сторонам где а,б,с длины сторон треугольника задаваемые с клавиатуры a p полупериметр

var a,b,c,p: Real;beginwriteln('Введите a,b,c,p');readln(a,b,c,p);writeln('S=',sqrt(p*(p-a)*(p-b)*(p-c)));end.