23.1.2

program nl_23_1_2; //Задаём имя программы

var a,b,c,p:real; //Объявляем переменные вещественного типа

begin //Начало тела программы

writeln('Введите длины сторон треугольника:'); //Сообщение для пользователя

readln(a,b,c); //Ввод сторон треугольника

if (a<=0)and(b<=0)and(c<=0) then //Проверка существования сторон треугольника

writeln('Длины сторон должны быть больше нуля!') //Сообщение для пользователя

else

if (a+b>c)and(a+c>b)and(b+c>a)then begin //Проверка существования треугольника

p:=(a+b+c)/2; //Вычисление полупериметра

writeln('Треугольник существует'); //Сообщение для пользователя

writeln('S = ', sqrt(p*(p-a)*(p-b)*(p-c)):0:5); //Вывод значения площади треугольника

end 

else writeln('Треугольник не существует'); //Сообщение для пользователя

end. //Конец тела программы