Pascal abc найти количество пар соседних элементов массива, в которых предыдущий элемент меньше последующего

Uses crt; var a: array [1..100] of byte; a, k,i,n: byte; begin read(i); a: =0; for k: =1 to i do begin read(n); a[k]: =n; end; for k: =1 to i-1 do if a[k]< a[k+1] then a: =a+1; write(a); end.

M= [] n=20 base=2 for i in **n)       bin = i       m[i]=[]       for j in             m[i][j] = bin % base             bin/=base       end end start = 17 stop=729 min="22222222222222222222222222" s="" m.each do |ops|       num = start       s=""       ops.each do |op|             if op==0                   num+=1                   s+="1"             else                   num*=2                   s+="2"             end             if num > = stop then break end       end       # if (num == stop) then p s end       if (num == stop) and (s.size< min.size) then             min=s       end end p min "1111121212221"

Var a, b: integer; begin       readln(a);       if (a = 1) then write(', уважаемая ');       if (a = 2) then write(', уважаемый ');       if ((b > 25) and (a = 1)) then writeln('');       if ((b < = 25) and (a = 1)) then writeln('леди');       if ((b > 25) and (a = 2)) then writeln('сэр');       if ((b < = 25) and (a = 2)) then writeln('господин'); end. слова только поменяйте, что : )