Программа pascalABC

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

var a, b, c: real;

begin

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

readln (a, b, c) ;

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

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

end.

var z, x, c: real;

begin

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

readln (z, x, c) ;

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

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

end.