program bai_giai;
uses crt;
var a:array[1..10000]of longint;i,n,j:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  for i:=1 to n do
        begin
         write('nhap a[',i,']=');readln(a[i]);
        end;
  write('xuat mang: ');
  for i:=1 to n do write(a[i],' ');
  writeln;
  write('xuat mang nguoc lai: ');
  for i:=n downto 1 do write(a[i],' ');
  writeln;
  write('nhap j:');readln(j);
  write('so o vi tri ',j,' la:');
  write(a[j]);
 readln;
end.

uses crt;

var n:string;

      j,i:integer;

begin

write('nhap day  N:');readln(n);

write('nhap j:');readln(j);

for i:=1 to lenght(n) do write(n[i]);

writeln;

for i:=lenght(n) downto 1 do write(n[i]);

writeln;

writeln(n[j]);

readln;

end.