Вычислить сумму элементов

[vigan]

Здравствуйте, помогите плз написать такую задачку в Lazarus'e:
Вычислить сумму элементов, принадлежащих промежутку [A,B) и расположенных в столбцах с четными номерами.

Заранее спасибо.

[newerow1989]

На паскале:

const a=5;
      b=8;
var i,j,s:integer;
    p:array[1..10,1..10] of integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   s:=0;
   For i:=1 to 10 do
      For j:=1 to 10 do
         If (j mod 2=0) and (p[i,j]>=a) and (p[i,j]<b) then
            s:=s+p[i,j];
   Writeln(s);
   Readln;
end.