Tạo tệp tong.inp gồm các giá trị -Dòng 1: số lượng phần tử của mảng 1 chiều -Dòng 2. các phần tử của mảng theo kiểu số nguyên YÊU CẦU :- sắp xếp m

var a:array[1..1000] of longint;
f1,f2:text;
i,j,n:word;
tam,t:longint;
const fi=’tong.inp’;
fo=’tong.out’;
begin
    assign(f1,fi);reset(f1);
    assign(f2,fo);rewrite(f2);
    readln(f1,n);
    for i:=1 to n do
       begin
           read(f1,a[i]);
           if a[i] mod 3 = 0 then
              t:=t+a[i];
       end;
    for i:=1 to n-1 do
       for j:=i+1 to n do
          if a[i]>a[j] then
             begin
                 tam:=a[i];
                 a[i]:=a[j];
                 a[j]:=tam;
             end;
    for i:=1 to n do write(f2,a[i],’ ‘);
    writeln(f2);
    writeln(f2,t);
    close(f1);close(f2);
end.