C++ :

#include<iostream>
using namespace std;
int main()
{
int n,a,b,c;
cin>>n;
a=n/100;
b=(n/10)%10;
c=n%10;
cout<<b*100+c*10+a<<endl;
return 0;
}

Pascal :

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