Ввести двумерный массив 10х10 и создать одномерный массив с упорядоченными по убыванию элементами двумерного массива.

uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
    b:array[1..n*n] of integer;
    i,j,k,x:integer;
begin
clrscr;
randomize;
k:=0;
writeln('Њ*ваЁж*:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
    k:=k+1;
    b[k]:=a[i,j];
   end;
  writeln;
 end;
writeln;
for i:=1 to k-1 do
for j:=i+1 to k do
if b[i]<b[j] then
 begin
  x:=b[i];
  b[i]:=b[j];
  b[j]:=x;
 end;
writeln('Њ*ббЁў:');
for i:=1 to k do
write(b[i]:4);
readln
end.

uses crt;
var n,s:integer;
begin
clrscr;
write('n=');
readln(n);
s:=0;
while n>0 do
 begin
  s:=s+n mod 10;
  n:=n div 10;
 end;
writeln('Сумма цифр=',s);
if odd(s) then write('Сумма нечетная')
else write('Сумма четная');
readln
end.