Дано целое число a. если a больше 0, то увеличить его на единицу иначе уменьшить на 1. проверить алгоритм для a-3, a-0, a- -12

А-3 3+1=4 а=0 0-1=0 а=12 12+1=13

Program llllll; var a: array [0..10] of integer; n, i, b : integer; begin       writeln('введите количество чисел');       readln(n);       b: =0;       for i : = 1 to n do               a[i] : = random(10);       b: =0;       for i : = 1 to n do       begin               if a[i] mod 2 = 0 then                       b: =b+a[i];       end;       writeln('это сумма ' , b);       writeln(a); end.

Program jnrvjf; vara: array[0..20] of integer; x, b, i, d, c: integer; begin      writeln('введите число элементов в массиве');       readln(d);       writeln('введите число'); ;       readln(x);       b: =0;       for i: = 1 to d do              a[i] : = random (20);       writeln(a);       for i: = 1 to d do      begin              c: = a[i];               if (c > b) then                      b: =a[i]      end;       writeln('максимальное значение в множестве: ', b);       for i: =0 to d do       begin              b: =a[i];               if b = x then                      writeln ('номера элементов, с x: ', i)// это если вести человеческую нумерацию, где первый элемент имеет номер 1.      end; end.