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