Записать в развернутом виде: 19.99 (10); 10.10 (2); 64.5(8); 39.f(16)

1*2^1+0*2^0+12^-1+0*2^-2 6*8^1+4*8^0+5*8^-1

1)var a: array[1..4,1..4] of integer;       i,j,s: integer; begin       for i: =1 to 4 do           for j: =1 to 4 do                  readln(a[i,j]);                       for i: =1 to 4 do begin                        writeln();                       for j: =1 to 4 do begin                        write(a[i,j],'  ');                       if (i+j> 5) then s: =s+a[i,j];                           end;                   end; writeln(); write(s); end. 2)var a: array[1..4,1..4] of integer;       i,j,s: integer; begin       for i: =1 to 4 do           for j: =1 to 4 do                  readln(a[i,j]);                       for i: =1 to 4 do begin                        writeln();                       for j: =1 to 4 do begin                        write(a[i,j],'  ');                       if (i> j) then s: =s+a[i,j];                           end;                   end; writeln(); write(s); end.

Var   a: array[1..4,1..4]of integer;   i, j,s: integer; begin   s : = 0;   for i : = 1 to 4 do begin       for j : = 1 to 4 do begin       write('a[',i,',',j,'] = ');           readln(a[i,j]);       end;   end;   for  i: =2 to  4 do     for  j: =1 to i-1 do s: =s+a[i,j];     writeln('сумма элементов под главной диаганалью',s);   end.