Написать программу в паскалabc Даны 3 числа. Определить, можно ли построить треугольник с указанными сторонами.

Program triangle; var max,a,b,c,s:integer; begin readln(a,b,c); max:=a;  if b > max then begin   max:=b;   s:=a+c;   if s > max then writeln('Мoжно')     else      writeln('Нельзя');     end;    if c > max then begin    max:=c;    s:=a+b;     if s > max then writeln('Мoжно')       else      writeln('Нельзя');     end      else     s:=c+b;     if s > max then writeln('Мoжно')        else    writeln('Нельзя'); end.