Помогите, пожалуйста, очень срочно1. Чему будет приравниваться x после выполнения куска

Помогите, пожалуйста, очень безотлагательно

1. Чему будет приравниваться x после исполнения фрагмента программки:
x:=0;
repeat
x:=x+8
until xgt;=21.

2. Дано описание массива
var mas: array [-22;0] of integer;
Сколько частей содержит данный массив?

3.Обусловьте, что делает последующая программа, и какой итог она выдаст на заданном массиве (1,4,0,-1,-4)
Program n1
const n=5
var a: array [1...n] of integer;
i,b: integer;
begin
b:=a[1];
for i:=2 to n do
if a[i] writeln (b);
end.