program PascalGuru;
var T:array[1..3,1..5] of integer;{объявление переменных}
    n,m,i,j:integer;
 
procedure vozvodim;
var i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 5 do
if T[i,j]<0 then T[i,j]:=sqr(T[i,j]);
end;
{---------------------------------------------}
begin
for i:=1 to 3 do
for j:=1 to 5 do
              begin write('T[',i,',',j,']='); readln(T[i,j]); end;
 
writeln('Vvedennyi massiv:');
for i:=1 to 3 do begin writeln;
for j:=1 to 5 do write (T[i,j]:8);  end;
 
writeln;
vozvodim(); {вызов процедуры}
 
writeln('Vozvedennyi v stepeni massiv:');
for i:=1 to 3 do begin writeln;
for j:=1 to 5 do write (T[i,j]:8);  end;
 
readln;
end.