Нужно нарисовать знак на компьютере против мусора придумать самому

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
const
  n=5;
type
  Matrix=array[1..n,1..n] of integer;

procedure DummySchool(var a:Matrix);
begin
  Writeln('Ввод элементов матрицы');
  for var i:=1 to n do begin
    Write(n,' элементов строки ',i,': ');
    for var j:=1 to n do Read(a[i,j]);
    end;
  Writeln('Сформирована матрица ',n,'x',n);
  for var i:=1 to n do begin
    for var j:=1 to n do Write(a[i,j]:5);
    Writeln
    end
end;

begin
  var B:Matrix;
  DummySchool(B);
  var sn:=0;
  var sp:=0;
  for var i:=1 to n do
    for var j:=1 to n do
      if B[i,j]<0 then sn+=B[i,j]
      else
        if B[i,j]>0 then sp+=B[i,j];
  Writeln('Сумма отрицательных ',sn);
  Writeln('Сумма положительных ',sp)
end.

Тестовое решение:
Ввод элементов матрицы
5 элементов строки 1: 6 23 -5 13 9
5 элементов строки 2: 42 0 -38 16 37
5 элементов строки 3: -5 -18 3 11 8
5 элементов строки 4: 9 13 -11 0 3
5 элементов строки 5: 19 -17 0 15 5
Сформирована матрица 5x5
    6   23   -5   13    9
   42    0  -38   16   37
   -5  -18    3   11    8
    9   13  -11    0    3
   19  -17    0   15    5
Сумма отрицательных -94
Сумма положительных 232

ответ на первый вопрос: 1) Скачайте и установите новые драйвера для сетевой карты или установите родные
драйвера с диска вместо определенных Windows.
2) Разрешите в используемом
Вами брандмауре (firewall) для программ, в которых Вы скачиваете файлы -
автоматически использовать необходимые порты и передавать необходимые пакеты, в
ином случае Ваш firewall может просто отключать соединение при большой нагрузке
на сеть, приняв его за атаку.
Вариант 1. Запрещение отключения сетевого адаптера для экономии
энергии. 1) Запустите Диспетчер устройств (Win + R > devmgmt.msc > ОК)
1.1) Откройте
меню Пуск
1.2) Нажмите правой кнопкой на Компьютер и выберите пункт
Свойства (Панель управления\Все элементы панели управления\Система)
1.3) Нажмите на ссылку Диспетчер устройств
2) Откройте Сетевые
адаптеры
3) Щелкните правой кнопкой мыши на Вашем сетевом адаптере и
выберите пункт Свойства
4) Перейдите на вкладку Управление
электропитанием
5) Уберите флажок Разрешить отключение этого
устройства для экономии энергии.
Вариант 2. Отключение протокола интернета версии 6 (TCP/IPv6) и отключение
разъединения в случае простоя. 1) Откройте Панель управления\Сеть и
Интернет\Сетевые подключения
2) Щелкните правой кнопкой мыши на
Подключение по локальной сети и выберите Свойства
3) Снимите
флажок Протокол интернета версии 6 (TCP/IPv6) и нажмите ОК.
Если помимо локальной сети у Вас присутствует другие типы соединений, то
продолжайте далее:
4) Щелкните правой кнопкой мыши на созданном Вами
соединении и выберите Свойства
5) Перейдите на вкладку
Параметры
6) В ниспадающем списке параметра Время простоя до
разъединения установите значение никогда
7) Перейдите на вкладку
Сеть
8) Снимите флажок Протокол интернета версии 6 (TCP/IPv6)
и нажмите ОК.
Вариант 3. Введение параметров-IP вручную. 1) Откройте Панель
управления\Сеть и Интернет\Сетевые подключения
2) Щелкните правой
кнопкой мыши на Подключение по локальной сети и выберите пункт Отключить
3) Щелкните правой кнопкой мыши на Подключение по локальной сети и выберите
пункт Включить
4) Щелкните правой кнопкой мыши на Подключение по
локальной сети и выберите Состояние
5) Нажмите на кнопку
Сведения и запишите указанные значения
6) Нажмите на кнопку
Закрыть, а затем нажмите кнопку Свойства
7) Установите курсор
на Протокол интернета версии 4 (TCP/IPv4) и нажмите кнопку
Свойства.
8) Введите записанные ранее значения параметров-IP вручную
и нажмите ОК.
Вариант 4. Настройка параметров сетевого адаптера. 1) Откройте Пуск
> Панель управления > Диспетчер устройств
2) Найдите щелкните правой кнопкой
мыши по Вашему сетевому адаптеру и выберите пункт Свойства
3)
Перейдите на вкладку Дополнительно
4) Установите значение параметра
Flow Control (Управление потоком) в положение Disabled (Выключено)
и нажмите ОК
Вариант 5. Сброс установленных значений. 1) Запустите командную
строку от имени администратора.
В строке поиска меню Пуск введите команду:
cmd и нажмите одновременно Ctrl + ?Shift +
Enter ?.
2) Введите поочередно указанные ниже команды, нажимая
после введения каждой, клавишу Enter ?.
route -f
netsh winsock reset
ipconfig /renew "Подключение по локальной сети"
Если после выполнения указанных выше действий пропадет соединение с сетью -
проверьте записи в Журнале событий: 1) Пройдите Панель управления\Все
элементы панели управления\Администрирование и откройте Просмотр
событий.
2) Слева в древовидном списке оснастки откройте Просмотр
событий (Локальный) > Журналы Windows и проверьте в каждом из подразделов:
Приложения и Система была ли описана какая-нибудь ошибка,
связанная с разрывом соединения.
Также свяжитесь со службой поддержки Вашего провайдера и проверьте
настройки.