Вычислить площадь и периметр треугольника НОМЕР 3 посчитайте

Задание 3:

var

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

begin

Write('Введите стороны треугольника через пробел: ');

ReadLn(a, b, c);

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

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

WriteLn('Площадь треугольника S = ', s:0:2);

end.