Программа pascalABCНайти периметр треугольника , если треугольника не существует то вывести

var z,x,c: real;

begin

write('стороны треугольника: ');

readln(z,x,c);

if (z + x lt;= c) or (x + c lt;= z) or (z + c lt;= x) then writeln ('нет такого треугольника')

else writeln('Периметр треугольника = ',z+x+c)

end.

var a,b,c: real;

begin

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

readln(a,b,c);

if (a + b lt;= c) or (b + c lt;= a) or (a + c lt;= b) then writeln ('Треугольника с такими сторонами не существует')

else writeln('Периметр треугольника равен: ',a+b+c)

end.