Заполнить таблицу по гос услугам. (Желательно в экселе или ворде)

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end. 

клинопись

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.

в десятичной:

45 = (4*8)^1 + (5*8)^0 = 32 + 1 = 33

106 = (1*8)^2 + (0*8)^1 + (6*8)^0 = 64 + 1 = 65

в двоичной:

45 = 101101

106 = 1101010