Uses crt;

Var i:integer;

      s1,s2:string;

Begin

clrscr;

Writeln('Nhap xau:');readln(s1);

s2:='';

i:=length(s1);

While s1[i]<> ' ' do 

  Begin

  s2:=s2+s1[i];

  i:=i-1;

  End;

Writeln('Tu sau cung cua xau la:');

For i:=length(s2) downto 1 do write(s2[i]);

readln;

End.

Program Tin;

Uses crt;

Var i,n:integer;

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

Begin

  Clrscr;

  Write('Nhap n: ');readln(n); 

  Writeln('Nhap ',n,' phan tu: ');

  For i:= 1 to n do 

    Begin

    Write('A[',i,'] = ');

    Readln(A[i]);

    End;

  Writeln('Cac phan tu chia het cho 5:');

  For i:=1 to n do If A[i] mod 5 = 0 then write(A[i],'   ');

  readln;

end.

Program Tin;

Uses crt;

Var min,i,n:integer;

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

Begin

  Clrscr;

  Write('Nhap n: ');readln(n); 

  Writeln('Nhap ',n,' phan tu: ');

  For i:= 1 to n do 

    Begin

    Write('A[',i,'] = ');

    Readln(A[i]);

    End;

  min:=A[1];

  For i:= 1 to n do If A[i]<min then min:=A[i];

  Writeln('So nho nhat vua nhap la: ',min);

  readln;

End.