Tin lớp 11 Nhập 1 xâu kí tự cho biết độ dài của xâu. Kiểm tra kí tự đầu tiên và kí tự cuối cùng của xâu có giống nhau không và in xâu đảo ngược. Ai gi

program Xau;
uses CRT;
var     s,s1: string;
         i,d: integer;
begin
         clrscr;
     
         write(‘Nhap xau S: ‘);readln(s);
     
         writeln(‘Do dai xau la: ‘,length(s));
        
            If s[1] = s[length(s)] then writeln(‘Ki tu dau va cuoi bang nhau’) else
            writeln(‘Ki tu dau va cuoi khong bang nhau’);
         
         for i:=1 to length(s) do
        
            s1:= s[i] + s1;
        
         write(‘Xau dao nguoc: ‘,s1);
     
readln;
end.