<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var (x,y,z):=ReadReal3('Введите через пробел три числа:'); if (x+y>z) and (x+z>y) and (y+z>x) then Writeln('Треугольник существует') else Writeln('Треугольник не существует') end.
<u>Примеры</u> Введите через пробел три числа: 2.34 5.18 9 Треугольник не существует
Введите через пробел три числа: 3 4 5 Треугольник существует