решить тест по информатике.

1. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы?
a:=10;
for i:=1 to 3 do begin
a:=a-3;
end;
2. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы?
a:=10;
for i:=0 to 4 do begin
a:=a-i;
end;
3. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы?
a:=2;
for i:=0 to 4 do begin
a:=a+i;
end;
4. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы?
a:=3;
for i:=1 to 4 do begin
a:=a+a;
end;
5. Какое число будет выведено на экран после выполнения этого фрагмента программы?
for i:=2 downto 0 do
write(i);
6. Какое число будет выведено на экран после выполнения этого фрагмента программы?
write(4);
for i:=1 downto 3 do
write(2*i);
7. Какое число будет выведено на экран после выполнения этого фрагмента программы?
write(1);
for i:=3 to 4 do
write(i);