program slovo;var s: string; i: integer;Beginwriteln('введите слово'); readln(s);for i:=length(s) downto 1do beginwrite(s[i]);end;End.