РЕШИТЕ НА ЯЗЫКЕ ПАСКАЛЬ, ПОЖАЛУЙСТА!***

 

Даны действительныечисла а, b, с. Определить, можно ли построить треугольник со сторонами а, b, с  или нет?..

Var a,b,c,q:integer;
begin
read (a,b,c);
q:=1;if (a>b+c) or (b>a+c) or (c>a+b) or (a<b-c) or (a<c-b) or (b<a-c) or (b<c-a) or (c<a-b) or (c<b-a) then q:=0;
if q=1 then write ('МОЖНО') else write ('НЕЛЬЗЯ');
end.