Viết chương trình chuyển xâu’Hello’ thành ‘HELLO’!

program 

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(s);

          readln;

end.

Xin hay nhất .