Чему равно значение логического значения (а, ¬a, 0, 1) : ¬a ∨0

Как я понял, а - 0, -а - 1, тогда -а и 0 будет ложью.

Var ababab,bababa,sususumamama: integer; begin writeln('перед вами программа для нахождения суммы всех натуральных чисел заданного диапазона'); write(' введите наименшее число диапазона '); readln(ababab); write('а теперь введите наибольшее число диапазона '); readln(bababa); //оформляем ввод данных sususumamama: =0; //присваиваем сумме значение 0 while ababab< =bababa do begin sususumamama: =sususumamama+ababab; //увеличиваем сумму на число а ababab: =ababab+1; //увеличиваем число а на 1 end; write('сумма всех чисел диапазона равна '+sususumamama); //выводим сумму чисел end.

{дан массив из 100 элементов (заполняется случайно). найти сумму тех элементов  массива, порядковые номера которых не со значением этого элемента.}var j,k,i: integer; sum: longint; r: array[1..100] of integer; beginfor i: =1 to 100 do beginr[i]: = random(95)-25; write(r[i]: 3); if i < > r[i] then sum: = sum + r[i]; end; writeln; writeln('сумму элементов массива = ',sum); end. {дан массив из 100 целых чисел (числа вводятся случайно). найти максимальный элемент массива.}var k,i,max: integer; r: array[1..100] of integer; beginmax: =-25; for i: =1 to 100 do beginr[i]: = random(95)-25; write(r[i]: 3); if r[i] > max then max: = r[i]; end; writeln; writeln('максимальный элемент массива = ',max); end.