Площадь треугольника по трем сторонам (формула Герона) Delphi

Найти площадь треугольника по трем сторонам по формуле Герона.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var a,b,c,s,p : real;

begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('A=');Readln(a);
Writeln('B=');Readln(b);
Writeln('C=');Readln(c);
p:=(a+b+c)/2;
s:=sqrt(abs(p*(p-a)*(p-b)*(p-c))); //формула герона
Writeln('S=',s:3:2);
Readln;
end.