Помогите, пожалуйста, очень срочно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.

4. Допустим, имеется одномерный массив, содержащий от 0 до 49 включительно. Нужно исключить из него все элементы, значения которых меньше 15.