Заполнить двумерный массив N*N числами с клавиатуры и найти сумму элементов массива нечётных столбцов

const N=3;var a: array[1..N] of array[1..N] of integer;i,j,s:integer;begins:=0;for i:=1 to N do beginfor j:=1 to N do beginreadln(a[i,j]);end;end;for i:=1 to N do beginif i mod 2 = 1 thenfor j:=1 to N do begins:=s+a[i,j];end;end;writeln(s);end.