viết chương trình nhập 1 xâu S. tạo xâu s1 gồm 3 phần tử cuối cùng của xâu S, xâu S,s1 ra màn hình

program Xau_ky_tu;

uses crt;
var   s,s1: string;
               i: byte;
begin
      clrscr;
     
      write(‘Nhap xau S: ‘); readln(s);
     
      for i:=length(s) downto length(s)–2 do
            s1:= s[i] + s1;
        
      writeln(‘Xau S la: ‘,s);
     
      write(‘Xau S1 la: ‘,s1);
     delay(5000);
readln;
end.