исправить код

[Alekzinder]

1)Найти наименьшее общее кратное всех чисел, содержащихся в за-
данной последовательности натуральных чисел.

program q;
var a:array [1..5] of integer;
i,min:integer;
begin
for i:=1 to 5 do begin
write ('vvedite massiv a[',i,']');
readln(a[i]);
end;
min:=a[1];
if a[i]<min then min:=a[i];
begin
for i:=1 to 5 do
if a[i] div min then
write (min);
end;
end.

2)Подсчитать количество столбцов заданной матрицы, которые со-
ставлены из попарно различных чисел.
3)Найти наименьшее общее кратное всех чисел, содержащихся в за-
данной последовательности натуральных чисел.
4)Упорядочить столбцы по неубыванию первых элементов.
5)Var T : array[1..n, 1..n] of (V, H, P, X);
T – таблица результатов шахматного турнира, в котором участво-вало n шахматистов, T[i, j] = V, если i участник выиграл у j (при этом T[j, i] = P), T[i, j] = H, если i и j участники сыграли вничью, T[i, i] = X. Считая, что за выигрыш 2, за ничью 1, за проигрыш 0 очков, выдать на экран номера участников в порядке невозраста-ния набранных очков.
6)Характеристикой строки целочисленной матрицы назовем сумму ее положительных четных элементов. Переставляя строки матри-цы, расположить их в соответствии с ростом характеристик.
7)Используя алгоритм «решето Эратосфена», найти все четверки простых чисел до 500000, принадлежащих одному десятку.
8)Заданы целочисленная симметричная матрица А и вектор b раз-мерностью n. Найти вектор с = A b.