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

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) then

writeln ('Есть положительная сумма среди введённых пользователем чисел.')

else

writeln ('Положительной суммы нет.');

readln;

end.