{* Задача 495 *}

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

Program zadach495;

Uses zadach495.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.