Обработка матриц

var M: array [1..3,1..5] of integer;
i,j,k:integer;
begin
k:=0;
writeln('vvedite matricu');
for i:=1 to 3 do
for j:=1 to 5 do begin read(m[i,j]);
readln;
if m[i,j]<0 then
k:=k+sqr(m[i,j]);
end;
writeln('summa = ',k);
readln;
end.

program zadacha1;
const
     N=5;
var
   matr,matrP:array[1..N,1..N] of integer;
   i,j:integer;
 begin
 writeln('Программа преобразования матрицы');
 
//Заполнение матрицы
 for i:=1 to N do
     for j:=1 to n do
     matr[i,j]:=random(10);
 
//печать матрицы
       for i:=1 to N do
      begin
           for j:=1 to N do
           write(matr[i,j]:3);
       writeln;
       end;
 
       writeln;
//прелбразование матрицы
  for i:=1 to N do
      for j:=1 to N do
      matrP[j,i]:=matr[j,i]*matr[i,i];
 
//печать преобразованной матрицы
  for i:=1 to N do
      begin
           for j:=1 to N do
           write(matrp[i,j]:3);
       writeln;
       end;
   readln;
 end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
    p:longint;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(9)+1;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
p:=1;
for i:=1 to n do
for j:=i+1 to n do
p:=p*a[i,j];
write('P=',p);
readln
end.