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 ) then
writeln ( 'Есть положительная сумма среди введённых пользователем чисел.' )
else
writeln ( 'Положительной суммы нет.' );
readln;
end.​