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

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