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ữ in hoa 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 St[i]:=Upcase(St[i]);

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

    Readln;

End.