C :

#include<stdio.h>
#include<string.h>
void fanxu(int);
char a[100],b[100];
int main()
{
  int len,i=-1;
  gets(a);
  len=strlen(a);
  fanxu(len);
  puts(b);
  return 0;
}
void fanxu(int len)
{
  int i,j;
  for(i=len-1,j=0;i>=0;i--)
    b[j++]=a[i];
  b[j]='\0';
}

C++ :

#include<iostream>
#include<string.h>
using namespace std;
int main()
{
    char a[50];
    int b,c;
    cin>>a;
    b=strlen(a);
    while(b--)
        cout<<a[b];
}

Pascal :

var st:string;
    i:longint;
begin
  readln(st);
  for i:=length(st) downto 1 do
  write(st[i]);
end.