Дан массив в(20 заполните его случайными числами в интервале [0, 100]. отсортируйте по убыванию и выведите массив на экран. для паскаля

Program arra;
const m=20;
var
B: Array[1..m] Of Integer;
i,j,k:integer;
BEGIN
randomize;
for i:=1 to m do begin 
B[i]:= random(101); 
end;  

write('Массив до сортировки: ');
 for i:=1 to m do begin
 write(B[i]); 
write(' '); 
end; 
writeln;
for i := 1 to m-1 do       
for j := 1 to m-i do       
    if B[j] < B[j+1] then begin     
           k := B[j];           
    B[j] := B[j+1];         
      B[j+1] := k       
    end;         
  write('Массив после сортировки: ');     
      for i:=1 to m do begin 
write(B[i]);
 write(' '); 
end; 
end.

Да без проблем!

gcd(77164189341682084692124351766096496451364840671846455244761, 46668734283684548617206823665104829826096872771679324943689);

448643232670469

a:=ifactor(77164189341682084692124351766096496451364840671846455244761);

   4                                                            
(3)  (11) (503) (809) (573384723060967) (448643232670469) (492166512383869) (1680979)

b:=ifactor(46668734283684548617206823665104829826096872771679324943689);
(781199815286623) (283598494080047) (448643232670469) (39869)
(11776697129)

Да без проблем!

gcd(77164189341682084692124351766096496451364840671846455244761, 46668734283684548617206823665104829826096872771679324943689);

448643232670469

a:=ifactor(77164189341682084692124351766096496451364840671846455244761);

   4                                                            
(3)  (11) (503) (809) (573384723060967) (448643232670469) (492166512383869) (1680979)

b:=ifactor(46668734283684548617206823665104829826096872771679324943689);
(781199815286623) (283598494080047) (448643232670469) (39869)
(11776697129)