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

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