Написать прогу по кот по формуле Герона находится S треугольника НАПАСКАЛЕ

var p, s, a, b, c: real; begin Writeln ('Введите стороны треугольника: '); Write ('a='); ReadLn (a); Write ('b='); ReadLn (b); Write ('c='); ReadLn (c); p: =(a+b+c) / 2; s: =sqrt (p*(p — a)*(p — b)*(p — c); Write ('S треугольника=', s); end.