Задача про треугольник

[YO$YA]

Вроде решил, только хз правильно или нет, огромное спасибо за помощь Stilet
вот задача:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a,b,c: real;

begin
Writeln('vvedite storonu, a');
readln(a);
Writeln('vvedite storonu b');
readln(b);
Writeln('vvedite storonu c');
readln(c);
writeln('l' , sqrt(a*b*(a+b+c)*(a+b-c))/(a+b):5:3);
readln;
end.