KHI CHẠY CHƯƠNG TRÌNH

Câu 27: Khi chạy chương trình : VarSt : string;i, L : integer;BeginSt :='So Buu chinh Vien thong'; L:=Length(St); For i := 1 to L doIf (St[i] >= 'a') and (St[i] <= 'z') then St[i]:= Upcase (St[i]);Write (St);End.-Chương trình in ra : So Buu chinh Vien Thongο so buuο chinh vien thong So Buu Chinh Vien Thongο SO BUU CHINH VIENο THONG