Ответ:

var x,y,z,f:integer;beginread(x,y,z);if (x+y>z)and(x+z>y)and(z+y>x) then f:=1 else f:=0;writeln(f);end.