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

Для решения по формуле Герона необходимо значение полупериметра треугольника p=1/2(a+b+c)

площадь одинакова S=SQRT((p(p-a)(p-b)(p-c))

program Geron;
var

    a, b, c:integer;

    s, p: real;
begin
   write(Введите a: );
   readln(a);
   write(Введите b: );
   readln(b);
   write(Введите c: );
   readln(c);
   p:=(a+b+c)/2;
  s:=sqrt(p*(p-a)*(p-b)*(p-c));
  writeln(Площадь S = , s);
  readln;
end.