Дано: a,b,c-стороны треугольника. найти: площадь треугольника по формуле герона. с паскаль abc. нужно на завтра.

Program ;
var a,b,c,p: real;
begin  writeln('Введите сторону a.'); readln(a); writeln('Введите сторону b.'); readln(b); writeln('Введите сторону c.'); readln(c);  p := (a+b+c)/2; writeln('Площадь треугольника равна ', sqrt(p*(p-a)*(p-b)*(p-c)), '.'); end.