не могу сделать помогите! Информатика.

[fyfnjkbb]

1. Написать все возможные, эквивалентные данному фрагменты программы, с использованием других операторов цикла.
J:=1; а;=2; b:=1; For i:=1 downto -10 do If b<>0 then A:=(а-1)*b; j:=j+1;b:=b-1;

2. Что будет выведено на экран в результате вычислений?
For i:=1 to 3 do
For j:=i downto 1 do
If i+j>3 then Writeln (i*2+1) else writeln('*');

3. Найдите произведение суммы всех положительных и суммы отрицательных элементов одномерного массива из n чисел. Массив, и число элементов в нем, вводится с клавиатуры.