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

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.