Вычислите площадь треугольника по заданным длинам 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.