*Cách 1: dùng biến string để lưu kết quả
program kitu_2cuoi;
uses crt;
var s,st:string;
begin
clrscr;
write('Nhap xau: '); readln(s);
st:=s[length(s)-1]+s[length(s)];
write('Hai ki tu cuoi la: ',st);
readln;
end.
*Cách 2: dùng biến đếm chạy for...do
program kitu_2cuoi;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
for i:=length(s)-1 to length(s) do write(s[i]);
readln;
end.
