Для треугольника 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.