Помогите пж 14 и 15 номер

Решение:

program Triangle14;

var a,b,c: real;

begin

readln(a,b,c);

if((a+b)<c or (a+c)<b or (b+c)<a)

then writeln('Треугольник не существует!')

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

end.

program Triangle15;

var a,b,c: real;

begin

readln(a,b,c);

if(a=b and a=c)

then writeln('Треугольник равносторонний!')

else writeln ('Треугольник не равносторонний!');

end.