uses crt;
var s:string;
    i,tong:byte;
BEGIN
        clrscr;
        write('Nhap xau S:'); readln(s);
//In ra man hinh xau dao cua xau S
        for i:=length(s) downto 1 do
                write(s[i]);
        writeln;
//In S sau khi xoa bo 5 ki tu dau
        for i:=1 to 5 do delete(s,1,1);
                writeln(s);
//Thay the toan bo ki tu N thanh g
        for i:=1 to length(s) do
                if s[i]='N' then s[i]:='g';
//Dua ra so luong cac ki tu la chu cai
        tong:=0;
        for i:=1 to length(s) do
                if (s[i] in ['A'..'Z']) or (s[i] in ['a'..'z']) then inc(tong);
        write('So luong cac chu cai co trong xau S la:',tong);
        readln
END.

uses crt;
var s:string;
    i,tong:byte;
begin
        clrscr;
        write('Nhap xau S:'); readln(s);
a. //In ra màn hình xâu đảo ngược của S\\
        for i:=length(s) downto 1 do
                write(s[i]);
        writeln;
b.//In S sau khi xoá bỏ 5 kí tự đầu của S\\
        for i:=1 to 5 do delete(s,1,1);
                writeln(s);
c. //Thấy thế toàn bộ kí tự N thành g\\
        for i:=1 to length(s) do
                if s[i]='N' then s[i]:='g';
d.// Đưa ra số lượng các kí tự là chữ cái không phân biệt hoa thường trong s\\
        tong:=0;
        for i:=1 to length(s) do
                if (s[i] in ['A'..'Z']) or (s[i] in ['a'..'z']) then inc(tong);
        write('So luong cac chu cai co trong xau S la:',tong);
        readln
end.