490435091865272320": 0,"255365393659461632": 25,"605864053604220938": 0,"552524151429136404": 0,"355041016023351307": 0,"208458991984967680": 200,"522599594090299392": 0,"456916674818342948": 0,"265039933087940611": 0,"442622475692539914": 0,"457111228028944384": 0,"508856661415297026": 0,"602066126142439434": 0,"404941587689242626": 0,"500999544650334218": 0,"273767898378534922": 0,"451275709487513601": 0,"345428911687204864": 0,"616635440723656721": 0,"624943448499159042": 0,"261809378422685698": 0,"368448429090930688": 0}
превратить эту таблицу в array object.keys(эта json таблица).и сделать сортировку по уменьшению

1)
Program hhh54;
var x:longint;
begin
  read (x);
  if ((x div 100) + ((x div 10) mod 10) + (x mod 10)) mod 2 <> 0 then write ('ЯВЛЯЕТСЯ')
  else write ('НЕ ЯВЛЯЕТСЯ');
end.

2)
а)
Progran hhh54;
var i,k,x:longint;
begin
  k:=0;
  read (x);
  while x <> 0 do
    begin
      if (x mod 10 = 6) and (x mod 4 = 0); then k:=k+1;
      read (x);
    end;
  write (k);
end.

б)
Progran hhh54;
var i,s,x:longint;
begin
  s:=0;
  read (x);
  while x <> 0 do
    begin
      if (x mod 10 = 6) and (x mod 4 = 0); then s:=s+x;
      read (x);
    end;
  write (s);
end.

1)

{$APPTYPE CONSOLE}
Var
   U:array[1..10000] of integer;
   h,k:integer;
Begin
Randomize;
Write('h = ');ReadLn(h);
Write('Исходный массив:');
For h:= 1 to h do
    Begin
    U[h]:=random(2*h+1)-h;
    Write(' ',U[h])
    End;
WriteLn;
Write('k = ');ReadLn(k);
For h:= 1 to h do
    if U[h] = k then Write(h,' ');
ReadLn;
End.

2)

{$APPTYPE CONSOLE}
Var
   B:array[1..10000,1..10000] of integer;
   m,n,j,Max:integer;
Begin
Randomize;
Write('m = ');ReadLn(m);
Write('n = ');ReadLn(n);
For m:= 1 to m do
    Begin
    Max:=1;
    For j:= 1 to n do
        Begin
        B[m,j]:=random(21)-10;
        Write(B[m,j]:4);
        if B[m,j] > B[m,Max] then Max:=j;
        End;
    WriteLn(', Max = ',B[m,Max],'[',m,',',Max,']');
    End;
ReadLn
End.