nhập vào 1 số n và n số nhập vào. in ra màn hình các số lớn hơn 10 và nhỏ hơn 20. nếu kh có số nào thì in ra chữ "No" ? giúp nhanh lên, gấp r .................

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

program baitap;
  uses crt;
    var a : array[1..100] of real;
        n, i, d : integer;
        s : real;
begin
    clrscr;
    write('Nhap n: ');readln(n);
    for i := 1 to n do 
         begin
        write('A[',i,']= '); readln(a[i]);
         end ;
    d := 0 ;
    for i := 1 to n do 
        if (a[i]>10) and (a[i]<20) then 
             begin
            write(a[i]:0:2,' ');
            d := d + i;
             end ;
    writeln;
    if d = 0 then writeln('No');
    readln;
end .

`* Pascal:`

`" "`

program importer_eet_exporter;
uses crt;
var n, indi, comp : integer;
    uni : array [1 .. 100] of integer;

begin
    clrscr;
    write('Nhap n = ');
    readln(n);
    
    comp := 0;
    write('Nhap mang gom ', n, ' so: ');
    for indi := 1 to n do 
    begin
        read(uni[indi]);
        if (uni[indi] > 10) and (uni[indi] < 20) then
            comp := comp + 1;
    end;
    
    if comp = 0 then 
        write('No')
    else
    begin
        write('So lon hon 10 nho hon 20: ');
        for indi := 1 to n do
            if (uni[indi] > 10) and (uni[indi] < 20) then
                write(uni[indi], ' ');
    end;
    readln
end.