Вычислите десятичные эквиваленты следующих чисел: 172(8) 2еа(16) 101010(2) 10, 1(2) 243(6 70 , заранее огромное )

172₈ = 1х8²+7х8¹+2х8⁰ = 64+56+2 = 122₁₀

2EA₁₆ = 2x16²+14x16¹+10x16⁰ = 512+224+10 = 746₁₀

101010₂ = 1x2⁵+0x2⁴+1x2³+0x2²+1x2¹+0x2⁰ = 32+8+2 = 42₁₀

10,1₂ = 1x2¹+0x2⁰+1x2⁻¹ = 2+1/2 = 2,5₁₀

243₆ = 2x6²+4x6¹+3x6⁰ = 72+24+3 = 99₁₀

Const n = 5;
  m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(21)-10; write(a[i,j]:4);
    end;
    writeln;writeln;
  end;
  //сумма всех элементов массива
  for i:=1 to n do
    for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
    s:=0;
    for j:=1 to m do begin
      s:=s+a[i,j];
    end;
    writeln ('Строка: ',i,' сумма:',s);
  end;   
end.

Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:

//c циклом for
var s,i:integer;
begin
  for i:=100 to 999 do
    if i mod 77 = 0 then s:=s+i;
  writeln('Сумма трехзначных кратных 77: ',s);
end.

Тестовое решение:
Сумма трехзначных кратных 77: 5929

// с циклом while
var s,i:integer;
begin
  i:=100;
  while i<=999 do begin
    if i mod 77 = 0 then s:=s+i;
    i:=i+1;
  end;
  writeln('Сумма трехзначных кратных 77: ',s);
end.