Составить алгоритм с которого можно определить, существует ли треугольник с длинами сторон a,b,c

Решение в файлах ниже:

var a,b,c:real;

begin

readln(a,b,c);

if (a<b+c) and (b<a+c) and (c<a+b) then writeln('mojet') else writeln('ne mojet');

end.

Program name;
var
a, b, c, i: int64;
begin
readln (a, b, c);
if a<(b+c) then
i:= i+1;
if b<(a+c) then
i:= i+1;
if c<(a+b) then
i:= i+1;

if i = 3 then
writeln ('Треугольник с такими сторонами существует')
else
writeln ('Треугольника с такими сторонами не существует');
end.

Var a,b,c:integer;
begin
readln (a,b,c);
If (a+b>c) and (a+c>b) and (b+c>a) then writeln(Существует)
else
writeln(Нет);
end.

Var a,b,c:real; begin readln(a,b,c); if (a<b+c) and (b<a+c) and (c<a+b) then writeln('mojet') else writeln('ne mojet'); end.

Var a,b,c:real;
Begin
Writeln(' введите стороны треугольника');
Read(a, b, c);
If (a<b+c) and ( b<a+c) and(c<a+b) then
Write(‘треугольник существует')
Else Writeln('не существует')
End.

Var
   a, b, c: integer;
begin
   readln(a, b, c);
   if (a+b < c) or (a+c < b) or (b+c < a) then
       writeln('Не существует')
   else
       writeln('Существует');
end.

_____________________

Б-С....................

Из курса геометрии: "В треугольнике сумма двух любых сторон больше трктьей!", просто проверяем три варианта. Это всё в одном условии, объединяем их and'ами. Если все условия выполняются, то выводим true. Соответсвенно, если нет, то выводим false.

С тебя

Треугольник не существует, если сумма длин двух любых сторон меньше или равна третьей.
var
a, b, c: integer;
begin
readln(a, b, c);
if (a+b <= c) or (b+c <= a) or (a+c <= b) then
writeln('Не существует)
else
writeln('Существует');
end.