Инвентаризация дорог

В галактике «Milky Way» на планете «Snowflake» есть N городов, некоторые из которых соединены дорогами. Император галактики «Milky Way» решил провести инвентаризацию дорог на планете «Snowflake». Но, как оказалось, он не силен в математике, поэтому он просит вас сосчитать количество дорог. Требуется написать программу, помогающую императору сосчитать количество дорог на планете «Snowflake».
Входные данные

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

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

В выходной файл OUTPUT.TXT необходимо вывести число, определяющее количество дорог на планете «Snowflake».

Пример

№	INPUT.TXT	OUTPUT.TXT
1	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	3

Решение

var   d:array[1..100,1..100] of integer;

n,i,j,k:integer;

f,f1:text;

begin

assign(f,'input.txt');

    reset(f);

     assign(f1,'output.txt');

     rewrite(f1);

    readln(f,n);

    if n<2 then {Write(f1,0)} else begin

    for i:=1 to n do

    begin

    for j:=1 to n do

    read(f,d[i,j]);

    readln(f);

    end;   

    for i:=1 to n-1 do

    for j:=i+1 to n do

     k:=k+d[i,j];

    end;

    writeln(f1,k);

 close(f1);  close(f);

end.