готово
Объяснение:
program triangle;
var a, b, c: real;
begin
Write('Введите стороны треугольника через пробел:');
ReadLn(a, b, c);
if (a + b > c) and (a + c > b) and (b + c > a) and (a > 0) and (b > 0) and (c > 0) then
WriteLn('Треугольник со сторонами ',a,', ',b,', ',c,' существует!')
else
WriteLn('Треугольник со сторонами ',a,', ',b,', ',c,' не существует!')
end.
