Pascal cung cấp hàm upcase (c) trả về kết quả là chữ cái in hoa nếu C là chữ cái thường và giữ nguyên C trong trường hợp ngược lại. Hãy lập trình -Nhập từ bàn phím xâu S -Viết chương trình dùng hàm UPCASE để thay tất cả các chữ thường nếu có trong S thành chữ hoa và đưa kết quả đã biến đổi ra màn hình

Program DOI_CHUOI_CHU_HOA;
Uses Crt;
Var i:integer;st:string;
Begin
     Clrscr;
     readln(st);
     st[1]:=upcase(st[1]);
     For i:=1 to length(St) do
          st[i]:=upcase(st[i]);
     Writeln(st);
      Readln;
      {samon247}
End.

Program Biendoi;
Uses crt;
Var S: String;
    i: longint;

Begin
        Clrscr;
        Write('Nhap S: '); Readln(S);
        For i:=1 to length(S) do
                S[i] := Upcase(S[i]);
        Write('Sau khi bien doi: ',S);
        Readln
End.