program ct;

ues crt;

var A:array [1..1000] of integer;

      i,j,n,tg:integer;

begin clrscr;

   write('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap so 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

           tg:=A[i];

           A[i]:=A[j];

           A[j]:=tg;

        end;

   writeln('Day so sap xep theo thu tu tang dan la: ');

   for i:=1 to n do

     write(A[i]:3);

readln;

end.

Nhớ cho minmochi880 ctlhn nhé !

Program nhap_so_nguyen;

Uses CRT;

Var N,i:integer;

Begin;

Clrscr;

Writeln('Hay nhập số nguyên N:');Readln (N);

While i>N do 

Begin

i:=i+1;

Writeln (i,#32);

End;

Readln;

End.