sắp xếp dãy đã cho thành dãy không tăng và đưa ra màn hình dãy đó đồng thời đưa ra kết quả của các số chia hết cho 3 và 7 Giúpk với mk cần gấp..

program sksk;
uses crt;
var a : array[1..100] of integer;
    i, n, j , t : integer;
begin
clrscr;
write('nhap so luong phan tu co trong day :');readln(n);
for i := 1 to n do 
begin
write('nhap phan tu thu ', i ,' : ');readln(a[i] );
end;
for i := 1 to n - 1 do
for j := i + 1 to n do 
if a[i] < a[j] then
Begin
t := a[i];
a[i] := a[j] ;
a[j]  := t ;
end;
write('day giam dan la :');
for i := 1 to n do write(a[i] : 4 );
writeln;
write('cac so vua chia het cho 3 vua chia het cho 7 la :');
for i := 1 to n do
if (a[i] mod 3 = 0) and  ( a[i] mod 7= 0) then
write(a[i]);
readln
end.