{$codepage UTF8} VAR cad:String; i :byte; alreves:String; BEGIN Write('Ingrese una cadena de caracteres : '); Readln(cad); for i := ord(cad[0]) downto 1 do alreves:=alreves+cad[i]; Writeln(alreves); END.