РЕШИТЕ СРОЧНО ДАЮ ВСЕ БАЛЫ ​

Ответ:

program temp;

var

 d, x, y: Double;

begin

 Write ('d, x, y: ');

 ReadLn (d, x, y);

 if (x >= 0) and (y >= 0) and (x + y <= d) then

   WriteLn (1)

 else

   WriteLn (0);

 ReadLn;

end.