Viết chương trình nhập vào xâu S gồm các kí tự thường và hoa. Đưa ra màn hình xâu S sau khi chuyển các ký tự sang in hoa

program in_hoa;

uses crt;

var s: string;

      i: byte;

Begin

         clrscr;

         write(‘Nhap xau: ‘); readln(s);

         for i:=1 to length(s) do s(i):=upcase(s[i]);

         write(‘Xau in: ‘,s);

         readln

End.