1 Массив из 13 положительных элементов, заполнить с клавиатуры. И найти количество положительных и отрицательных чисел. 2. Задача №2.
Массив из 15 элементов заполнить случайным образом числами от 50 до 100. Вычислить количество элементов кратных 2. Распечатать эти элементы
3. Задача №3.
Заполнить массив из 5 элементов по формуле 3i+5. Подсчитать сумму элементов, стоящих на четных и нечетных местах.

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandomReal(15,-10,10); a.Println;
  Writeln('Элементов, больших первого, ',
      a.Where(x->x>a[0]).Count)
end.

Пример
1.32138581542363 -7.42206571503639 -8.75516477914302 6.17963798166236 -4.88329186797295 6.02313704603498 -5.68947898023272 -4.43705633023617 2.51164194779081 -3.27493339463833 8.22698325767507 -7.95714398750902 4.07602354608291 -2.3214872238792 4.90172023647545
Элементов, больших первого, 6

Логические знаки не дает вставлять - пишу их союзами и частицами подчеркнутыми.
1)   Число  376 четное и трехзначное.
А = "Число  376 четное"
В = "Число  376 трехзначное"
А и В 
2) Неверно, что Солнце движется вокруг Земли.
А = "Солнце движется вокруг Земли"
Не А
3) Земля имеет форму шара.
А = "Земля имеет форму шара"
А
4) На уроке математики старшеклассники отвечали на вопросы учителя и писали самостоятельную работу.
А = "На уроке математики старшеклассники отвечали на вопросы учителя"
В = "На уроке математики старшеклассники писали самостоятельную работу"
А и В
5) Если сумма цифр числа делится на 3, то число делится  на  3.
А = "Сумма цифр числа делится на 3"
В = "Число делится  на  3"
А стрелка к  В
6) Число  делится на 3 тогда и только тогда, когда сумма цифр числа  делится на 3
А = "Число  делится на 3 "
В = "Сумма цифр числа  делится на 3"
А стрелка в обе стороны В