Вычислите площадь треугольника по заданным длинам a b c

//PascalABC
var
    a, b, c, P, S : real;
begin
    write('Введите длину стороны A> ');
    readln(A);
    write('Введите длину стороны B> ');
    readln(B);
    write('Введите длину стороны C> ');
    readln(C);
    writeln('Вычисление по формуле Герона');
    P := (A + B + C) / 2;
    S := sqrt(P * (P - A) * (P - B) * (P - C));
    writeln('Площадь треугольника S = ', S);
end.