Ekaterina2000@mail.com , ответ добавлен 22.03.2017 в 19:39

var a, b, c: integer;  
begin
write (' Длины сторон: ');
readln (a,b,c);  
if (a < b+c) and (b < a+c) and (c < a+b) then
writeln ('Треугольник существует.')
else writeln ('Треугольник не существует.');  
end.

 0