с информатикой Определите результат действий фрагмента скрипта

Где-то в условии ошибка.
Таблица истинности для пяти переменных будет содержать два в пятой степени, (т.е. 32) строки. Как можно трактовать фразу "нет ни одной совпадающей строки"? Только так, что если A=0? то B=1 или если А=1, то В=0. Комбинаций вида 0 0 или 1 1 быть не может.
Но выражение A v B истинно, если истинно хотя бы А или В. Сделовательно, для комбинаций вида 0 1 и 1 0 такое выражение истинно всегда. Тогда столбец значений для такой функции будет содержать все 32 единицы.
Поэтому ответ: 32 единицы.

По вопросу "Почему в ответах 0?" я бы сказал следующее: все 32 нуля могут быть получены, если в условии ошибка и функция имеет вид A ^ B. В том случае комбинации 0 1 и 1 0 будут давать именно нули.

Program n1;
Uses Crt;
var  a: array[1..30,1..30] of integer;
  k,m,i,j,s: integer;
begin  for i:=1 to 18 do begin
  for j:=1 to 12 do begin
  a[i,j]:=random(5001)+5000;
  write(a[i,j]:6);
  end;
  writeln;
  end;
  writeln;
  s:=0; 
 for i:=1 to 18 do
  s:=s+a[i,6]; 
 writeln('Summa: ', s);
end.

Высчитывает все правильно. Зарплату поставил от 5000 до 10000 тысяч рублей, строкой a[i,j]:=random(5001)+5000;
(b-a+1)+a - формула для расчета интервала чисел, т.е. зарплату поставил от 5000 до 10000, получается:
a = 5000
b = 10000
(10000-5000+1)+5000 = (5001)+5000;
Если захочешь поменять сумму зарплаты, думаю поймешь теперь как.
 for i:=1 to 18 do    s:=s+a[i,6];  - этой строкой изменяю i (т.е. работников), а j оставляю неизменным и равным 6, так как июнь 6-ой месяц по счету.