for i:=1 to 5 do write (M[i]:5); writeln for j:=1 to 3 do write (M[j]:3); writeln
for i:=1 to 5 do begin writeln; end; for j:=1 to 3 do write(M[i;j]:15);