Заполнить массив паскаль 20 баллов!)
1 2 3 4 5
11 12 13 14 15
16 17 18 19 20
21 22 23 24 25

const  n = 4;  m = 5;var  i, j, k: integer;  a: array [1 .. n, 1 .. m] of integer;begin  i := 1;  for j := 1 to 5 do a[i, j] := j;  k := 0;  for i := 3 to n + 1 do  begin    for j := 1 to m do    begin      k := (i - 1) * m + j;      a[i - 1, j] := k;    end;  end;  for i := 1 to n do  begin    for j := 1 to m do      write(a[i, j]:4);    writeln;  end;  readln;end.