3)Дан массив из 15 целых чисел (вводятся случайным образом в спектре

program sym; //Заглавие программки
var
i, sum: integer; //Творение целочисленной переменной
a: array[1..15] of integer; // Творение массива
begin
  i:=1;
  sum:=0;
  While i lt;= 15 do //В цикле проходимся по всем элементам массива
  begin
   readln(a[i]); //Читаем значение с консоли и присваиваем i элементу массива
   if i lt;= 6 then // Условие 
   sum:= sum +a[i];1 //Если i - номер элемента массива lt;= 6, то складываем с переменной sum
   i:=i+1; //Увеличиваем счётчик
  end;
 println(sum); //Выводим сумму 6 частей
end.