Как автоматически проставить номера страничек в документе microsoft office word 2007

меню (в верху) - вставка - номер страницы - далее выбираешь где распоожить и все

вставка--> номер > внизу страницы(ну или где там нужно).

Const    n = 15; var   mas: array[1..15] of integer;   i, max1, max2,  min, c, d: integer; begin   c: =-1;   max1: =-maxint;   min: =maxint;   max2: =-maxint;   randomize;   for i: =1 to n do     mas[i]: =random(101)-50;   write('массив:   ');     for i: =1 to n do     write(mas[i], ' ');   writeln;   for i: =1 to n do   begin     if (mas[i]> 0) and  (mas[i]> max1) then       max1: =mas[i];     if (mas[i] mod 2 < > 0) and (max2< mas[i]) then     begin       c: =i;       max2: =mas[i];       end;       if (mas[i] mod 2 < > 0) and (min> mas[i]) then     begin       d: =i;       min: =mas[i];     end;     end;   writeln('максимальный положительный элемент:   ',max1);   writeln('минимальный нечетный элемент:   ',min);   writeln('максимальный нечетный элемент:   ',max2);   if c< d then       writeln('максимальный элемент стоит раньше')   else     writeln('минимальный  элемент стоит раньше'); end.

1) const n=10; var a: array[1..n]of integer; i: integer; begin     for i: =1 to n do           read(a[i]); writeln;     for i: =1 to n do           write(a[i]: 4); end. 2) var a: array[1..1000]of real; i,n: integer; begin   writeln('n ? ');   readln(n);     for i: =1 to n do         begin           writeln('input  ',i,' элемент');           readln(a[i]);         end; writeln;     for i: =1 to n do           write(a[i]: 4: 2); end. 3) var a: array[1..1000]of real; i,n: integer; begin   writeln('n ? ');   readln(n);     for i: =1 to n do         begin           a[i]: =random;           write(a[i]: 4: 2);           end; writeln; end.