uses crt; var s:string; i:byte; begin clrscr; write('Nhap s: '); readln(s); for i:=1 to length(s) do s[i]:=upcase(s[i]); write('Xau sau khi duoc in hoa la: ',s); readln end.
program oken; uses crt; var s: string; i: byte; begin clrscr; write('nhap 1 xau bat ky: '); readln(s); for i:=1 to length(s) do s[i]:= upcase(s[i]); writeln('xau in hoa: ',s); readln; end.
