Создайте программу на PascalABC, используя if ... then ... else.... Для рачета полупериметра треугольника (a+b+c)/2. Если a<>0 и т.д. и a+b>c и т.д.