Составить программу нахождения площади треугольника по формуле Герона. Входные данные длины сторон треугольника. Выходные данные периметр треугольника, площадь треугольника.

program zz1;

var a, b, c, S, p, d:real; / /задаем переменные не целого типа

begin

write ('введите первую сторону треугольника ');

read (a);

write ('введите вторую сторону треугольника ');

read (b);

write ('введите третью сторону треугольника ');

read (c);

d: = (a+b+c) / 2; / /находим полупериметр треугольника

write (' периметр треугольника = ', d * 2);

if (a+b>c) or (a+c>b) or (c+b>a) / / проверяем на существование треугольника, если существует, то вычисляем площадь

then begin s:=sqrt (d * (d-a) * (d-b) * (d-c)); write (' площадь треугольника = ', s:5:2); end

else write ('треугольник не существует ');

end.