Знамениты длины сторон треугольника a,b,c. Напишите программу, вычисляющую площадь этого треугольника.

Текст программки на Паскале:

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