Даны отрезки a,b,c. Определить, можно ли из них составить треугольник. Вывести сообщения типа “можно”, ”нельзя”, ”треугольник превращается в отрезок” — Pascal(Паскаль)

var
a,b,c:integer;
begin
readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a)then 
writeln('mojno')else 
if (a+b=c)or(a+c=b)or(b+c=a)then writeln('liniya')
else writeln('nelzya');
readln;
end.