ПОМОГИТЕ ПОЖАЛУЙСТА, СРОЧНО!

Даны целые положительные числа m,n и k. сформировать целочисленную матрицу размером m*n, у которой все элементы имеют значения k+i+j (i=1,2..m; j=1,2..n)

VAR a:array[1..10000,1..10000]of integer; m,n,k,i,j: integer;beginwrite('Введите 3 целых числа m, n, k = '); read(m,n,k);writeln;for i:=1 to m do beginfor j:=1 to n doa[i,j]:=i+j+k; write(a[i,j]:6);writeln; end;end.