Bài 1:
Program NN;
Uses crt;
Var A: array[1..10000] of longint;
    n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do Read(A[i]);
        For i:=n downto 1 do Write(A[i],' ');
        Readln
End.
Bài 2:
Program NN;
Uses crt;
Var St: String;
    i,d5,d9: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);
        d5:=0; d9:=0;
        For i:=1 to length(St) do
        Begin
                If St[i]='5' then inc(d5);
                If St[i]='9' then inc(d9);
        End;

        If d5<>0 then
        Begin
                Writeln(d5);
                Write('Vi tri ki tu 5: ');
                For i:=1 to length(St) do
                        If St[i]='5' then Write(i,' ');
                Writeln;
        End;

        If d9<>0 then
        Begin
                Writeln(d9);
                Write('Vi tri ki tu 9: ');
                For i:=1 to length(St) do
                        If St[i]='9' then Write(i,' ');
        End;
        Readln
End.