const
 n = 10;
 m = 10;

type
 Tmas = array[1..n, 1..m] of integer;

var
 i, j: byte;
 mas: Tmas;
 sum: integer;

begin
randomize();
writeln('Input matrix:');
 for i:= 1 to n do
  begin
   for j:= 1 to m do
    begin
     mas[i,j]:= random(50);
     write(mas[i, j]:4);
    end;
  writeln;
  end;
sum:= 0;
 // row 1
 for j:= 1 to m do sum:= sum + mas[1, j];
 // row 2..n-1
 for i:= 2 to n-1 do sum:= sum + mas[i, 1] + mas[i, m];
 // row n
 for j:= 1 to m do sum:= sum + mas[n, j];
writeln('Summa po perimetru: ', sum);
readln;
end.