giải dùm bài toán này theo dạng free pacal

- B0 : thay vì nhập 5 biến, ta nhập 5 phần tử mảng

- B1 : sắp xếp mảng tăng dần

- B2 : tổng lớn nhất : a[5] + a[4] + a[3] + a[2] 

- B3 : tổng nhỏ nhất : a[4] + a[3] + a[2] + a[1] 

*Cách hoạt động Bubble sort thì bạn có thể tham khảo các trang mạng

*Code :

uses crt ;
  var a : array[1..6] of integer ;
    i, j : integer ;
  procedure bubble_sort ;
      var tg : integer ;
     begin
    for i := 1 to 5 do 
        for j := i + 1 to 5 do 
            if a[i] > a[j] then 
                 begin
                tg := a[i];
                a[i] := a[j];
                a[j] := tg ;
                 end ;
     end ;
begin
    for i := 1 to 5 do read(a[i]);
    bubble_sort ;
    write(a[4] + a[3] + a[2] + a[1],' ',a[5] + a[4] + a[3] + a[2]);

    
    
end .

*do rảnh quá nên code nó dài z đoá :))

uses crt;
var i:integer;
a:array[1..5] of integer;

procedure qs(l,r:integer);
var  i,j,t,x:longint;
begin
if l>r then exit;
i:=l;
j:=r;
x:=a[(l+r) div 2];
repeat
 while a[i]<x do
  i:=i+1;
 while a[j]>x do
  j:=j-1;
 if i<=j then
 begin
  t:=a[i];
  a[i]:=a[j];
  a[j]:=t;
  i:=i+1;
  j:=j-1;
 end;
until i>j;
qs(l,j);
qs(i,r);
end;

begin
clrscr;
for i:=1 to 5 do
 readln(a[i]);
qs(1,5);
write(a[1]+a[2]+a[3]+a[4],' ',a[2]+a[3]+a[4]+a[5]);
readln
end.