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

program test6764;

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

begin

write ('Enter a: ');

readln (a);

write ('Enter b: ');

readln (b);

write ('Enter c: ');

readln (c);

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

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

writeln ('S = ', s);

readln;

end.