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

Program massiv;

var

A:array[1..n,1..n]of integer; Творенье массива А размером n на n

i,j,s:integer;

Begin

s:=o; Задаем изначальное значение s

for i:=1 to n do

for j:=1 to n do

begin

readln(A[i,j]); Ввод с клавиатуры значения ячейки А[i,j]

if jmod2=1 then s:=s+A[i,j]; Если остаток от дробленья j на 2 = 1(если j не четное), то к значению ячейки s прибавляется значение ячейки A[i,j]

end;

writeln(s); Вывод на экран значения ячейки s

end.