Известны длины сторон треугольника а, b, c. Напишите программу , вычисляющую площадь этого треугольникаю.
Пример входных данных: Пример выходных данных:
a=3 S=6.0
b=4
c=5
Помогите пожалуйста!Очень срочно!Буду очень благодарна!

program raf105;

var a,b,c,p,s:real;

begin

 writeln('Введите длины сторон a, b, c');

 readln(a,b,c);

 p:=(a+b+c)/2;

 s:=sqrt(p*(p-a)*(p-b)*(p-c));

 writeln('Площадь треугольника: ', s);

end.

Язык программирования PascalABC