Известны длины сторон треугольника 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.