Viết chương trình nhập vào một xâu ký tự từ bàn phím. Đổi xâu ký tự đó sang chữ thường rồi in kết quả ra màn hình. Ví dụ :Xâu abCdAbcD sẽ cho ra xâu abcdabcd.

Uses Crt;

Var  St:String;

        i:Byte;

Begin

    Write(‘Nhap xau St: ‘); Readln(St);

    For i:=1 to length(St) do

        If St[i] IN [‘A’..’Z’] Then St[i]:=CHR(ORD(St[i])+32);

    Write(‘Xau ket qua: ‘, St);

    Readln;

End.