Помогите, пожалуйста, очень срочно 1. Чему будет равняться x после выполнения фрагмента программы: x:=0; repeat x:=x+8 until x больше =21. 2. Дано описание массива var mas: array [-22;0] of integer; Сколько элементов содержит д...

Помогите, пожалуйста, очень срочно 1. Чему будет равняться x после выполнения фрагмента программы: x:=0; repeat x:=x+8 until x>=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.