K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
HN
0

TT
0

program in_xau;
uses crt;
var i:integer;
st1,st2:string;
begin
clrscr;
write('nhap xau:');readln(st1);
st2:='';
i:=length(st1);
while i>=1 do
begin
st2:=st2+st1[i];
i:=i-1;
end;
write(st2);
readln;
end.