Написать программу нахождения треугольника

Нахождения треугольника чего? Периметра? Площади? Углов? vara, b, c, p, s, pp: real; beginwrite ('vvedite storony'); read (a,b,c); p: =a+b+c; pp: =p/2; s: =sqrt (pp*(pp-a)*(pp-b)*(pp-c); if (a+b <= c) or (a+c <= b) or (b+c <= a) thenwriteln ('treugolnik ne syschestvuet') elsebeginwriteln ('p=',p); writeln ('s=',s); end; end.