Помогите пожалуйста написать программу заполнения заштрихованной области трехмерного массива.
Заполнение провести единицами, с использованием процедур.
Вывести массив по горизонтальным плоскостям
const n=6;
m=8;
var a:array [1..n,1..m]of integer; i,j:integer;
k:integer;
begin
k:=m;
for i:=1 to n do begin
for j:=k downto k-2 do begin
if (k>0) then begin
a[i,j]:=1;
end;
end;
k:=k-1;
end;
for i:=1 to n do begin
for j:=1 to m do
write (a[i,j]:5);
writeln;
end;
readln;
end.
const n=7;
m=9;
var
a:array [1..n,1..m] of integer;
i,j:integer;
k:integer;
begin
k:=m;
for i:=1 to n do begin
for j:=k downto k-abs(m-n) do begin
if (k>0) then begin
a[i,j]:=1;
end;
end;
k:=k-1;
end;
for i:=1 to n do begin
for j:=1 to m do
write (a[i,j]:5);
writeln;
end;
readln;
end.