Здравствуйте, Степанов Иван /REDDS!

Без использования встроенных функций операций над матрицами.

Ни одной стандартной функции, работы с матрицами
[code lang=pascal]type
z=^integer;
var
matr:z;
rmatr:z;
d:z;
i,j,n,m:integer;
procedure show(a:z;b,c:integer);
var
d:integer;
begin
while b>0 do
begin
d:=c;
while d>0 do
begin
write(a^:3);
inc(a);
dec(d);
end;
writeln;
dec(b);
end;
end;
begin
repeat write('Enter N:=');readln(n);until n>0;
GetMem(matr,n*n*sizeof(integer));
d:=matr;
for i:=1 to n do for j:=1 to n do
begin
if j>i then d^:=0 else d^:=n-i+j;
inc(d);
end;
show(matr,n,n);
FreeMem(matr,n*n*sizeof(integer));
repeat write('Enter M:=');readln(m);until m>0;
GetMem(rmatr,n*m*sizeof(integer));
d:=rmatr;
for i:=0 to n do for j:=0 to m do
begin
d^:=random(100);
inc(d);
end;
show(rmatr,n,m);
FreeMem(rmatr,n*m*sizeof(integer));
end.[/code]
Проверял на малых N и M, думаю num так переводится.
Удачи!