Информатика поставить галочки возле правильного ответа​

1 - 4 вариант.

2 - 2 вариант.

3 - 3 вариант.

4 - 1 вариант.

Var k,m: integer; dat: array[1..10]of integer; // объявление массива begin dat[1]: =45;       //заполнение массива dat[2]: =55;       //заполнение массива dat[3]: =40;       //заполнение массива dat[4]: =15;       //заполнение массива dat[5]: =20;       //заполнение массива dat[6]: =80;       //заполнение массива dat[7]: =35;       //заполнение массива dat[8]: =70;       //заполнение массива dat[9]: =10;       //заполнение массива dat[10]: =45;     //заполнение массива m: = dat[1];     //m присваивается значение первого элемента массива for k: =2 to 10 do begin     //цикл выполняющийся 8 раз (с2 до 10)  if dat[k] < dat[1] then     //сравниваются значения первого и k-ого элемента массива begin  //если условие выполняется, то складывается значение первого элемента и k-ого m: = m+ dat[k] end end; write(m); end. эта программа складывает значения тех элементов массива, которые меньше первого элемента данного массива и сам этот первый элемент.