Viết chương trình nhập vào 1 xâu. Viết hoa kí tự đầu và kí tự cuối của xâu. Vd: “chào bạn”->”Chào bạN”

program in_hoa;

uses crt;

var s:string;

begin

       clrscr;

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

       s[1]:=upcase(s[1]);   {kí tự s[1] bằng in hoa kí tự s[1]}

       s[length(s)]:=upcase(s[length(s)]);   {kí tự cuối bằng in hoa kí tự cuối}

       write(s);

       readln;

end.