Var
a,b,c:real;
begin
Write(Введите через пробел длины трех сторон: );
Readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
Writeln(Можно составить треугольник)
else
Writeln(Нельзя составить треугольник)
end.
Тестовое решение:
Введите через пробел длины трех сторон: 2 6 9
Нельзя составить треугольник
Введите через пробел длины трех сторон: 3 4 5
Можно составить треугольник
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.