Помогите решить тест по информатике!!!
Даю 100 баллов!!

1. Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?
a:=10;
for i:=1 to 3 do begin
a:=a-2
end;

2. Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?
a:=10;
for i:=0 to 4 do begin
a:=a-i
end;

3. Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?
a:=2;
for i:=0 to 3 do begin
a:=a+i
end;

4. Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?
a:=4;
for i:=1 to 2 do begin
a:=a+a
end;

5. Какое число будет выведено на экран после выполнения этого фрагмента программы?
for i:=2 downto 1 do
write(i);

6. Какое число будет выведено на экран после выполнения этого фрагмента программы?
write(4);
for i:=4 downto 3 do
write(2*i);

7. Какое число будет выведено на экран после выполнения этого фрагмента программы?
write(1);
for i:=3 to 5 do
write(i);​​

a = 4

a = 0

a = 8

a = 16

Вывод: 21

Вывод: 486

Вывод: 1345