program ReverseWord;

var
s, t: string;
i: integer;

begin
writeln('Enter a word: ');
readln(s);

t := '';

for i := length(s) downto 1 do
begin
t := t + s[i];
end;

writeln('Reverse word: ', t);

end.