Для треугольника abc составьте программу для нахождения площади. (Паскаль)

program s_treug;

var a, b, c: integer;

p, S: real;

begin

writeln ('Введите длину первой стороны');

readln (a);

writeln ('Введите длину второй стороны');

readln (b);

writeln ('Введите длину третьей стороны');

readln (c);

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

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

writeln ('Площадь треугольника равна', S);

end.