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

var     a, b, c, p: real; begin     readln(a, b, c);     p := 0.5 * (a + b + c);     writeln('S = ', sqrt(p * (p - a) * (p - b) * (p - c))); end.

П2 -> П1 -> П0 -> + + 2 / П3 ^ ИП2 - * ИП3 ИП1 - * ИП3 ИП0 - * КвКор С/П