1.program Taylor;
uses crt;
var d:text; n,i,j,t:longint; a:array[1..10000000]of longint;
begin
clrscr;
   assign(d,'tepcho.pas');reset(d);
      readln(d,n);
      for i:=1 to n do read(d,a[i]);
   close(d);
   assign(d,'sx.pas');rewrite(d);
      for i:=1 to n do
         for j:=i to n do
            if a[i]>a[j] then
               begin
                  t:=a[i];
                  a[i]:=a[j];
                  a[j]:=t;
               end;
      for i:=1 to n do write(d,a[i],' '); writeln(d);
      for i:=1 to n do write(d,a[n-i+1],' ');
   close(d);
end.

2.

program Taylor;
uses crt;
var d:text; n,i,j,t:longint; a:array[1..10000000]of longint;
begin
clrscr;
   assign(d,'tepcho.pas');reset(d);
      readln(d,n);
      for i:=1 to n do read(d,a[i]);
   close(d);
   assign(d,'lonbe.pas');rewrite(d);
      for i:=1 to n do
         for j:=i to n do
            if a[i]>a[j] then
               begin
                  t:=a[i];
                  a[i]:=a[j];
                  a[j]:=t;
               end;
      for i:=1 to n do write(d,a[i],' '); writeln(d);
      for i:=1 to n do write(d,a[n-i+1],' ');
   close(d);
end.

3.program Taylor;
uses crt;
var d:text; n,i,tong:longint; a:array[1..10000000]of longint;
begin
clrscr;
   assign(d,'tepcho.pas');reset(d);
      readln(d,n);
      for i:=1 to n do read(d,a[i]);
   close(d);
   assign(d,'tong.pas');rewrite(d);
   for i:=1 to n do inc(tong,a[i]);
   writeln(d,tong);
   close(d);
end.

4.

program Taylor;
uses crt;
var d:text; n,i:longint; a:array[1..10000000]of longint;
function nt(a:longint):boolean;
var i:longint;
begin
   i:=2;
   while(a>1)and(a mod i<>0) do inc(i);
   nt:=i=a;
end;
begin
clrscr;
   assign(d,'tepcho.pas');reset(d);
      readln(d,n);
      for i:=1 to n do read(d,a[i]);
   close(d);
   assign(d,'clnt.pas');rewrite(d);
      write(d,'Chan:');
      for i:=1 to n do if a[i] mod 2=0 then write(d,a[i],' '); writeln(d);
      write(d,'Le:');
      for i:=1 to n do if a[i] mod 2=1 then write(d,a[i],' '); writeln(d);
      write(d,'Nguyen to:');
      for i:=1 to n do if nt(a[i]) then write(d,a[i],' ');
   close(d);
end.

Câu 1: 

program bai_giai;
var f,g:text;
    A:array[1..10000] of longint;
    n,i,j,tg:longint;
begin
    Assign(f,'tepcho.pas');  reset(f);
    Assign(g,'sapxep.pas');  rewrite(g);
    readln(f,n);
    for i:=1 to n do read(f,A[i]);
    for i:=1 to n-1 do
        for j:=i+1 to n do
            if A[i]>A[j] then
                begin
                    tg:=A[i];
                    A[i]:=A[j];
                    A[j]:=tg;
                end;
    for i:=1 to n do write(g,A[i],' ');
    writeln(g);
    for i:=n downto 1 do write(g,A[i],' ');
    close(f); close(g);
end.

Bài 2:

program bai_giai;
var f,g:text;
    A:array[1..10000] of longint;
    n,i,max,min,bt1,vt2:longint;
begin
    Assign(f,'tepcho.pas');  reset(f);
    Assign(g,'maxmin.pas');  rewrite(g);
    readln(f,n);
    for i:=1 to n do read(f,A[i]);
    max:=A[1]; min:=A[1]; vt1:=1; vt2:=1;
    for i:=2 to n do
        begin
            if A[i]>max then
                begin
                    max:=A[i]; vt1:=i;
                end;
            if A[i]<min then
                begin
                    min:=A[i]; vt2:=i;
                end;
        end;
    writeln(g,max,' ',vt1);
    writeln(g,min,' ',vt2);
    close(f); close(g);
end.

Bài 3:

program bai_giai;
var f,g:text;
    A:array[1..10000] of longint;
    n,i,t:longint;
begin
    Assign(f,'tepcho.pas');  reset(f);
    Assign(g,'tong.pas');  rewrite(g);
    readln(f,n);
    for i:=1 to n do read(f,A[i]);
    t:=0;
    for i:=1 to n do t:=t+A[i];
    write(g,t);
    close(f); close(g);
end.

Bài 4:

program bai_giai;
var f,g:text;
    A:array[1..10000] of longint;
    n,i:longint;
function ktnt(k:longint):boolean;
var r:longint;
begin
    ktnt:=false;
    if k<2 then exit;
    for r:=2 to trunc(sqrt(k)) do
        if k mod r=0 then exit;
    ktnt:=true;
end;
BEGIN
    Assign(f,'tepcho.pas');  reset(f);
    Assign(g,'maxmin.pas');  rewrite(g);
    readln(f,n);
    for i:=1 to n do read(f,A[i]);
    for i:=1 to n do
        if A[i] mod 2=0 then write(g,A[i],' ');
    writeln(g);
    for i:=1 to n do
        if A[i] mod 2=1 then write(g,A[i],' ');
    writeln(g);
    for i:=1 to n do
        if ktnt(A[i]) then write(g,A[i],' ');
    close(f); close(g);
END.