{* Задача 96 *}

Unit ZADACH96;
Interface
Implementation
Begin
 writeln('Написать программу, которая по заданным трем числам определяет, является ли сумма каких-нибудь двух из них положительной.');
End.

Program zadach96;

Uses zadach96.pas; {* Эту строку можно удалить *}
Uses Crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  a : real;
  b : real;
  c : real;
Begin
  ClrScr; {* Стираем всё с экрана *}
  Writeln('Введите числа...');
  Readln(a, b, c);
  If (a + b > 0) Or (a + c > 0) Or (b + c > 0) Then
    writeln('Yes')
  Else writeln('No')
End.