Напишу только алгоритм, если знаете паскаль, написать не составит труда:
1) Вводим три числа a,b,c;
2) Делаем проверку
if (a+b>0 or a+c>0 or b+c>0) then
'есть положительная сумма'
else
'таких сумм нет'
'
A = []
for i in 0..100
a[i] = rand(400)-200
a[i] = (a[i] < 0) ? a[i]*a[i] : a[i]
end
p a
Не (X>Z) и не (X=Y) == не(0>8) и не (0=-5) == не ложь и не ложь ==
истина и истина == истина