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

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 - * КвКор С/П