Помогите решить тест по информатике!!!

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);​

1: 4

2: 0

3: 8

4: 16

5: 21

6: 486

7: 1345