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

я программист.

var

a,b,c:integer;

begin

write('Введите числа A,B,C: ');

readln(a,b,c);

if(a+b>0)or(b+c>0)or(a+c>0) then

 writeln('Обнаружена положительная сумма!') else

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

readln;

end.