Имя обозначающее множество обьектов

Денотат- имя, обозначающее множество предметов.

513/16=32 (1 остаток) 32/16=2 (0 остаток) ответ 201 600/16=37 (8 остаток) 37/16=2 (5 остаток) ответ 258 2010/16=125 (10 остаток, 10 в шестнадцатеричной системе это а,                                                                           то есть а остаток)  125/16=7 (13 остаток, 13 в шестнадцатеричной системе это d,                                                                            то  есть d остаток)  ответ 7da

Самое простое решение program znanijatop; const n = 100; var k,i,j: byte; s1,s2: real; a: array[1..n,1..n] of real; begin writeln('vvedite poryadok matrice'); readln(k); s1: =0; s2: =0; for i: =1 to k do begin for j: =1 to k do begin writeln('vvedite a[',i,',',j,']'); readln(a[i,j]); end; end; for i: =1 to k do begin for j: =1 to k do begin if i< j then  s1: =s1+a[i,j]; if i> j then  s2: =s2+a[i,j]; end; end; if s1 > s2 then writeln('nad glavnoy diagonali summa bolshe'); if s1 < s2 then writeln('pod glavnoy diagonali summa bolshe'); if s1 = s2 then writeln('ravni'); end.