Написать программу, которая по заданным трем числам определяет, является ли сумма каких-нибудь двух из них положительной.

program summ;

var

a, b, c: integer;

begin

cls;write ( \'Введите первое число: \' );readln ( a );write ( \'Введите второе число: \' );readln ( b );write ( \'Введите третье число: \' );readln ( c );if ( a + b > 0 ) or ( b + c > 0 ) or ( a + c > 0 ) thenwriteln ( \'Есть положительная сумма среди введённых пользователем чисел.\' ) elsewriteln ( \'Положительной суммы нет.\' );readln;end.