n = len(a)
for i in range(1, n):
if a[i] > a[i-1]:
print(i, end = ' ')

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

-32=-100000

прямой код 10100000

обратный код 11011111

дополнительный код 11100000

-102=-1100110

прямой код 11100110

обратный код 10011001

дополнительный код  10011010

-126=-1111110

прямой код 11111110

обратный код 10000001

дополнительный код  10000010

(12-3): (4+5)=1

1х2х3-4+5-6=1

(12: 3+4+5): (6+7)=1

(1+2-3+4+5+6-7): 8=1