В Паскаль. Составте программу с диалогом для нахождения площади треугольника по теореме Герона.

s= кв. корень p (p-a) (p-b) (p-c) 

p - полупериметр.

a,b,c- стороны.

Помогите пожалуйста!

 

 

 

 

 

 

 

 

program ndj;

uses crt;

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

begin

clrscr;

p:=(a+b+c)/2; \\ высчитывает полупериметр

s:=sqrt(p*(p-a)*(p-b)*(p-c)); \\ высчитывает площадь

writeln(s);

readln;

end.