program string1;
var s:string;
i:integer;
begin
write('Enter A String :');
readln(s);
write('The Reversed String:');
for i:=length(s) downto 1 do
write(s[i]);
writeln
end.