Сосчитать количество дорог - Pascal

Формулировка задачи:

Помогите пожалуйста решить задачу В галактике "Milky Way" на планете "Neptune" есть N городов, некоторые из которых соединены дорогами. Император "Maximus" галактики "Milky Way" решил провести инвентаризацию дорог на планете "Neptune". Но, как оказалось, он не силен в математике, поэтому он просит вас сосчитать количество дорог.

Входные данные

В первой строке задается число N (0 ≤ N ≤ 100). В следующих N строках содержится по N чисел, каждое из которых является единичкой или ноликом. Причем, если в позиции (i,j) квадратной матрицы стоит единичка, то i-ый и j-ый города соединены дорогами, а если нолик, то не соединены.

Выходные данные

Выведите одно число – количество дорог на планете "Neptune". Примеры

входные данные

5 0 1 0 0 0 1 0 1 1 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0

выходные данные

Решение задачи: «Сосчитать количество дорог»

Листинг программы

var 
  n, x, s, i: integer;
begin
  read(n);
  s := 0;
  for i := 1 to n * n do
  begin
    read(x);
    s := s + x;
  end;
  write(s div 2);
end.

Объяснение кода листинга программы

Создается переменная n типа integer для хранения количества дорог
Создается переменная x типа integer для хранения количества дорог на каждом участке
Создается переменная s типа integer для хранения общего количества дорог
Создается переменная i типа integer для использования в цикле
Вводится значение переменной n через стандартный ввод
Устанавливается значение переменной s в 0
Начинается цикл от 1 до n * n
Вводится значение переменной x через стандартный ввод
К значению переменной s прибавляется значение переменной x
Выводится результат целочисленного деления значения переменной s на 2