Помогите сделать задания по программированию!!!Пожалуйста!! срочно

Язык указан в последней строке задания: написать как они решаются в паскале.

2)
program N69557907_2;
var a, b:array[ 1 .. 100 ] of longint;
n, i:byte;
x:longint;
begin
write('Введите длину вектора: ');
readln(n);
for i := 1 to n do
begin
write('A(', i, '): ');
readln(a[ i ]);
x := abs(a[ i ]);
b[ i ] := 1;
repeat
b[ i ] := x mod 10 * b[ i ];
x := x div 10
until x = 0;
end;
writeln('Составлен новый вектор: ');
for i := 1 to n do
write(b[ i ]:8);
readln
end.

3) Все целые числа Z, кроме -1 и 1 имеют по меньшей мере 4 делителя (-Z, -1, 1, Z). Или речь идёт не о целых числах, а о натуральных или неотрицательных целых, или само число и число с противоположным знаком не считаются делителями. Вам это нужно уточнять.

4)
program N69557907_4;
var n, m, i, j, k:byte;
a:array[ 1 .. 100, 1 .. 100 ] of integer;
b:array[ 1 .. 100 ] of byte;
begin
write('Введите кол-во строк матрицы: ');
readln(n);
write('Введите кол-во столбцов матрицы: ');
readln(m);
writeln('Введите элементы матрицы: ');
for i := 1 to n do
for j := 1 to m do
begin
write('A(', i, ',', j, '): ');
readln(a[ i, j ])
end;
writeln('Bектор номеров столбцов со всеми нулевыми элементами: ');
k := 0;
for j := 1 to m do
begin
i := 1;
while (i <= n) and (a[ i, j ] = 0) do
inc(i); {или i := i + 1;}
if i > n then
begin
inc(k); {или k := k + 1;}
b[ k ] := j;
write(b[ k ]:4)
end
end;
readln
end.

Язык программирования вероятнее всего C++, раз про векторы спрашивает.
В принципе ничего сложного в заданиях нет. Имеем длину вектора и его элементы. В цикле, число шагов которого равно числу элементов, находим их произведения, сохраняем в новый вектор и выводим на экран.
Во втором, также в цикле рассматриваем каждый элемент. Проверяем наличие у него делителей, посредсвом перебора всех вариантов от 1 до значения элемента. При каждом найденном делителе увеличиваем переменную n на единицу. Если после перебора n равна или больше 4, то удаляем этот элемент.
С третьим даже не могу понять, что именно нужно сделать. После работы пришел, голова кругом.
Писать код честно - лень!

После прочтения вопроса мой IQ уменьшился на 10! Кто компенсирует?

Если паскаль, пишите на почту.

если вышлешь свои наработки, то что ты сама пыталась сделать помогу. А так что толку.. .

Сама Решай. (Кто эту фигню придумал?)

язык программирования какой хоть?