Написать программу в паскал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.