Запишите код программирования с операторов программирования для заданного алгоритма . 10 ! заранее !

VAR
   n, m, sum, i, j: Integer;
   a: Array [1..10000] of Array [1..10000] of Integer;
BEGIN
   Read(n, m);

   For i := 1 to n do
      For j := 1 to m do Read(a[i][j]);

   For i := 1 to n do
      For j := 1 to m do
         If (a[i][j] > 0) then sum := sum + a[i][j];

   Write(sum);
END. 

Но для экономии времени и сил можно не создавать массив:
VAR
   n, m, sum, el, i, j: Integer;
BEGIN
   Read(n, m);

   For i := 1 to n do
      For j := 1 to m do begin 
         Read(el);
         If (el > 0) then sum := sum + el;
      End;

   Write(sum);
END.

67= 1000011
95=10112
103=1213
246=366
421=1A5
305=131
525=1350
Правило:
Для того, чтобы перевести число из десятичной системы счисления, в любую другую, нужно выполнять целочисленное деление исходного числа на основание той системы счисления, в которую нужно перевести число. При этом важен остаток от деления и частное. Частное нужно делить на основание до тех пор, пока не останется 0. После этого все остатки нужно выписать в обратном порядке - это и будет число в новой системе счисления.

если Остаток больше десяти то есть система счисления в которую переводим к примеру 16 то остатку  10=А; 11=B; 12=C; 13=D; 14=E; 15=F;