Вложенные циклы

[Chief]

народ решите легкую задачу...помогите дураку)))

[1..2,1..2 :)]

Напиши сам тот текст разобрать не могу...

[Chief]

Даны натуральные числа m,n,действительные числа a(1),a(2),...,a(mn).Вычислить a(1)a(2)...a(m)+a(m+1)+a(m+2)...a(2 m)+a((n-1)m+2)...a(nm)

P.S. в скобках-индексы,в месте "a(2m)+a((n-1)m+2"в двойных скобках означает а(индекс (n-1),а потом m+2)

[puporev]

uses crt;
const m=3;
      n=4;
var a:array[1..m*n] of real;
    i,j:integer;
    s,p:real;
begin
clrscr;
randomize;
writeln('Massiv A:');
for i:=1 to m*n do
  begin
    a[i]:=3*random;
    write(a[i]:5:2);
  end;
writeln;
s:=0;
for i:=1 to n do
  begin
    p:=1;
    for j:=1 to m do
    p:=p*a[j+m*(i-1)];
    s:=s+p;
  end;
write('Summa=',s:0:3);
readln
end.