program cau1;

var

begin

           repeat

           readln(n);

            until (100<=n) and (n<=999);

            writeln(n);

             str(n,so); S:=0;                                        {Mình chuyển số sang xâu nhé}

             for i:=1 to length(so) do 

            begin

                      val(so[i],x); T:=T+x;

           end; 

           writeln(T); val(so,n);                              {Mình chuyển lại xâu thành số}

           m:=0;

          while n<>0 do

         begin

                  m:=m*10+n mod 10; n:=n div 10;

          end;

          writeln(m);

          if m=n then write(n,' LA SO DOI XUNG') else write(n,' KHONG LA SO DOI XUNG');

          readln;

end.

Câu 2:

program cau2;

var

       a,b,c,T,i,j,tam:integer;

      A:array[1..100] of integer;

begin

      readln(a,b,c);

      T:=a+b+c;

      writeln(T);

      writeln(T/3:5:2);

      if (a>b) and (a>c) then writeln(a) else

      if (b>a) and (b>c) then writeln(b) else

      if (c>a) and (c>b) then writeln(c);

      A[1]:=a; A[2]:=b; A[3]:=c;                        {Mình đưa 3 số này vào mảng}

      for i:=1 to 2 do

      for j:=i+1 to 3 do if A[i]>A[j] then

      begin

                 tam:=A[i]; A[i]:=A[j]; A[j]:=tam;

      end;

      for i:=1 to 3 do write(A[i],' ');

      readln;

end.   

Bạn chạy chương trình kiểm tra xem sai ở đâu không nha, chắc có sai ở 1 số chỗ, bạn khắc phục giúp mình nhé. Đôi khi cũng có sai sót hiz

                         Chúc bạn học tốt!