Кто разбирается в программировании пожалуйста помогите!!! СРОЧНО!

вот пузырьковая сортировка:
Сортировка одномерного массива
Сортировкой называют набор операций, упорядочивающий массив в соответствии с индексами, на множестве которых изначально определено отношение порядка. Вопрос о возрастании или убывании упорядоченного массива для нас не принципиален. Как правило, программы, сортирующие массив по возрастанию, легко изменяются для сортировки по убыванию. Существует множество алгоритмов сортировки (пузырьковая сортировка, сортировка по дереву, быстрая сортировка, сортировка слиянием, сортировка Шелла и т. д.) , они
имеют большую практическую значимость, являются фундаментальными в некоторых областях информатики.
Название «Пузырьковая сортировка» происходит от образной интерпретации, по которой алгоритм заставляет «легкие» элементы мало-помалу всплывать на «поверхность» .
Суть алгоритма такова. Начиная с первого, сравниваются два соседних элемента массива A и A[i+l], если A >A[i+1], то элементы меняются местами. В первый раз мы проходим массив начиная с индекса 1, до индекса n - 1, во второй - с 1 до n - 2 и т. д. Любой массив будет отсортирован за n проходов. Таким образом, порядок сложности данного алгоритма
(максимальное количество операций проверок и перестановок элементов массива) пропорционален n /2, что характерно для многих алгоритмов сортировки, хотя массив может быть от
сортирован уже после первого прохода. Наиболее очевидное усовершенствование данного алгоритма состоит в том, что можно следить за перестановками: если при очередном прохо-
де не было перестановок, значит массив уже упорядочен и требуется завершить сортировку.

program p20;
const
n= 10;
var
a: array [1.. n] of Real;
i, j : integer;
temp: Real;
Change: Boolean;
begin
{ввод элементов массива}
Writeln (' введите элементы массива, ', n, ' элементов ' ) ;
for i := 1 to n do Read (A ) ;
{сортировка}
j:= 0;
repeat
change := false;
j := j + l;
for i : = 1 to n - j do
if A > A[i + l] then
begin
change := true; {... если A > A[i+l]}
{то элементы меняются местами}
temp : = A [i+1] ;
A[i+1] := A;
A := temp;
end;
{прекращаем сортировку, если не было перестановок}
until not change;
{выводим на экран отсортированный массив}
for i:= I to n do Write (A : 6: 2) ;
Writeln;
end.

5 вопрос - справочник по Excel на клавише F1

долго писать все 5 заданий:
1) чето типа того (забыл паскаль, но надеюсь синтаксис ты поправишь) :
var
a:integer;
begin
a:=1234;
while a>0 do
begin
writeln(a mod 10);
a:=a mod 10;
end;
end.
должно выводить в обратном порядке встолбик.
2) не помню
остальное пусть еще кто-нибудь напишет