Pascal :

var a:array[1..4] of char;
    i:longint;
begin
 for i:=1 to 4 do
  read(a[i]);
 for i:=4 downto 1 do
  write(a[i]);
end.