uses crt;
var i,n,j,k,max,h,m : integer;
a : array[1..100] of integer;
begin clrscr;
write('Nhap so phan tu :'); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]);
end;
{In ra cac phan tu le va chia het cho 3}
For i:=1 to n do if( a[i] mod 2 = 1) and (a[i] mod 3=0) then write(a[i]:3);
{Sa[ xep mang theo thu tu tang dan }
For i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then begin
k:=a[i]; a[i]:=a[j]; a[j]:=k; end;
for i:=1 to n do write(a[i]:3);
{Xoa 1 phan tu trong mang}
for h:=1 to n-1 do write(a[h]:3);
{In ra phan tu co gia tri lon nhat}
max:=a[1];
for m:=2 to n do if a[m]>max then max:=A[m];
write('Phan tu lon nhat la :', max);
readln
end.

program ct;

uses crt;

var i,n,tam,j,Max,t:integer;

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

begin

clrscr;

  write('nhap n:=');readln(n);

     for i:=1 to n do

begin

  write('nhap mang A[',i,']:=');readln(A[i]);

end;

{-------cau 1 -------}

   write('cac phan tu le va chia het cho 3 la');

      for i:=1 to n do

         if (A[i] mod 2=0) and (A[i] mod 3=0) then write(A[i],'   ')

{------- cau 2 --------}

   for i:=1 to n-1 do

   for j:=n+1 to n do

       if A[i]>A[j] then

  begin

    tam:=A[i];

    A[i]:=A[j];

    A[j]:=tam;

  end;

  writeln('days sap xep theo thu tu tang dan la');

  for i:=1 to n do

  write(A[i],'  ');

{-------- cau 3 ---------}

  writeln('xoa mot phan tu la');

     for t:=1 to n do write(A[t], '  ');

{-------cau 4 -----------}

  Max:=A[1];

    for i:=2 to n do

        if Max<A[i] then Max:=A[i];

    writeln('gia tri lo nhat la',Max);

readln

end.