Nhập vào 1 xâu và đưa ra màn hình xâu đảo của xâu ban đầu. VD: 1412ab -> ba2141

PROGRAM CT71;
USES crt;
VAR s: STRING;
i: BYTE;
BEGIN
clrscr;
Write('Nhap xau : '); Readln(s);
Write('Xau dao : ');
FOR I:=length(s) DOWNTO 1 DO BEGIN
Write(s[i]); END;
readln
END.

Download: http://www.mediafire.com/?squav1o1eubfoo6