a) viết chương trình nhập vào một xâu S b) hãy chuyển các kí tự chữ cái trong xâu S thành chữ cái in hoa

program sau_ky_tu

uses crt;

var s:string;

i,d:integer;

begin

clrscr;

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

d:=length(s);

for i:=1 to d do 

 s[i]:=upcase(s[i]);

writeln(s);

readln;

end.