Uses crt;
var a,b,c:integer;
begin
write (Длины сторон: );
readln (a,b,c);
if a < b+c then
if b < a+c then
if c < a+b then
writeln (Треугольник существует.)
else
writeln (Треугольник не существует.)
else
writeln (Треугольник не существует.)
else
writeln (Треугольник не существует.);
readln
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.