Добрый вечер.
ПОМОГИТЕ, ПОЖАЛУЙСТА, НАПИСАТЬ ПРОГРАММУ ДЛЯ ДАННОГО ЗАДАНИЯ.

var a:array [1..5, 1..5] of integer;s,i,j:integer;begins:=0;for i:=1 to 5 dofor j:=1 to 5 dobeginread(a[i,j]);if (i mod 2=0) and (j mod 2=0) then s:=s+a[i,j];end;writeln(s)end.