C :

#include <stdio.h>
#include <string.h>

void mystrrev(char string[]);

int main()
{
	char string[100];
	scanf("%[^\n]s",&string);
	mystrrev(string);
	
	return 0;
} 

void mystrrev(char string[])
{
	int n = strlen(string);
	int i;
	for( i=n-1; i>=0; i-- ){
		printf("%c",string[i]);
	} 
}

C++ :

#include<iostream>
#include<string.h>
using namespace std;
void mystrrev(char string[]){
	int i;
	for(i=strlen(string)-1;i>=0;i--){
		cout<<string[i];
	}
}
main(){
	char string[101];
	cin.getline(string,101);
	mystrrev(string);
	return 0;
}

Pascal :

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