Написать программу яка перевіряє чи існує трикутник зі сторонами abc. написати в паскалі! іть

Var
a,b,c:integer;
begin
readln(a,b,c);
if (a<b+c) and (b<a+c) and (c<a+b) then
writeln('Треугольник существует')
else
writeln('Треугольник не существует');
end.