Треугольник со сторонами а, в, с, найдите его площадь по формуле герона

Я так понимаю, необходимо написать программу по нахождению площади ...

var

a, b, c:integer;

p:real;

begin

writeln ('Введите значения длин сторон треугольника ') ;

write ('a = ') ; readln (a) ;

write ('b = ') ; readln (b) ;

write ('c = ') ; readln (c) ;

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

write ('Площадь треугольника = ', (sqrt (p * (p-a) * (p-b) * (p-c))) : 0:2) ;

end.