program phuongt;
uses crt;
  var A: array[1..500] of integer;
     op: text;
     i, n, d: integer;
begin
        clrscr;
        assign(op, 'E:\MAX.txt');
        rewrite(op);
        write('Nhap n = '); readln(n);
        for i:=1 to n do
        begin
                write('A[', i, '] = '); readln(A[i]);
                if (A[i] mod 2 <> 0) and (A[i] mod 3 = 0) then d:=d+1;
        end;
        writeln(op, 'Mang vua nhap:');
        for i:=1 to n do write(op, A[i]:3);
        writeln(op);
        writeln(op, 'So phan tu thoa mam: ', d);
        close(op);
        write('Mo file de xem ket qua');
        readln
end.

uses crt;
var f:text;
    a:array[1..100] of integer;
    n,i,d:integer;
begin
    clrscr;
    assign(f,'C:\MAX.txt');
    reset(f);
    d:=0;
    write('Nhap so luong phan tu: '); readln(n);
    for i:=1 to n do
        begin
            write('a[',i,']: '); readln(a[i]);
        end;
    write(f,'Day vua nhap: ');
    for i:=1 to n do write(f,a[i]:4);
    for i:=1 to n do if (a[i]mod 2=1)and(a[i] mod 3=0) then inc(d,1);
    write(f,'So phan tu TM: ',d);
    close(f);
    readln;
end.