В текстовом процессоре Microsoft Word оформить документ, состоящий из двух страниц с использованием приемов: • Форматирования символов и абзацев
• Оформление текста с использованием табуляции
• Оформления списков
• Создания и форматирования таблиц
• Размещения текста в несколько колонок
• Добавления информации в верхний и нижний колонтитулы
• Вставку в документ графических объектов, надписей, схем Smart Art и текста Word Art
• Вставку в документ сносок
• Создание автособираемого оглавления
Подробнее в файле.

Const n=10; 
var a:array[1..n] of integer;
i,s,min:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i]:4);
 end;
writeln;
s:=0; 
min:=a[1];
for i:=1 to n do
 begin
 if a[i]>0 then s:=s+a[i];
 if a[i]<min then min:=a[i];
 end;
writeln('s = ',s,'   min = ',min);
for i:=1 to n do
 if a[i]>0 then a[i]:=s
  else if a[i]<0 then a[i]:=a[i]-min;
writeln('Измененный массив:');
for i:=1 to n do  write(a[i]:4);
writeln;
end.

Пример:
Исходный массив:
   9  -3  -5   7   1   5  -6   9  -8   7
s = 38   min = -8
Измененный массив:
  38   5   3  38  38  38   2  38   0  38

Анимации делать не умею и нечего не знаю вот код:

Объяснение:

program eg;

uses graph,crt;

var

y,x,i,n,d,m,j:integer;

begin

randomize;

detectgraph(d,m);

initgraph (d,m,' \TP\GRAPH');

for i:=1 to 300 do begin

cleardevice;

setcolor(12);

line(150,380-i,150,420-i);

line(170,380-i,170,460-i);

line(190,380-i,190,420-i);

setcolor(5);

for j:=1 to 200 do begin

putpixel(random(300) ,410-j, random(100) );

end;

setcolor(1 );

setbkcolor(15);

rectangle(120,160-i,220,380-i);

line(170,80-i,120,160-i);

line(170,80-i,220,160-i);

circle(170,210-i,35);

if i<100 then begin

line(120,280-i,80,380-i);

line(80,380-i,120,380-i);

line(120,280-i,120,380-i);

line(220,280-i,260,380-i);

line(220,380-i,260,380-i);

line(220,380-i,220,380-i);

end

else begin

delay (10);

end;

readkey;

end;

end.