#include<conio.h>
#include<stdio.h>
#include<string.h>
int main()
{
            char chuoi[100];
            int i, n;
            printf("nhap chuoi : ");
            gets(chuoi);
            n= strlen(chuoi)-1;
            for(i=n; i>=0; i--)
            {
                        printf("%c", chuoi[i]);
            }
            getch();
            return 0;

var s:string;
i:longint;
begin
read(s);
for i:=length(s)downto 1 do
write(s);
end.

Var a,b : string;
           i  : integer;
 Begin
Write(' Nhap vao xau a:'); readln(a);
Write(' Nhap vao xau b:'); readln(b);
t:=' ';
For i:= length(a) down to 1 do t:= t+ a[i];
Write(' Xau nguoc lai xau a la:',t );
t:=' ' ;
For i:= length( b) down to 1 do t:= t+ b[i];
Write(' Xau nguoc lai xau b la:',t );
t:=' ' ;
Readln
End.