1. Viết chương trình nhập vào từ bàn phím một xâu bất kì có ít nhất 25 kí tự . Xuất ra màn hình 3 kí tự đầu tiên của xâu. Đổi xâu kí tự sang chữ in hoa rồi in kết quả ra màn hình.
program phuongt; uses crt; var s: string; i: integer; begin clrscr; write('Nhap xau s = '); readln(s); write('3 ki tu dau tien cua xau la: '); for i:=1 to 3 do write(s[i]:2); writeln(); write('Chuyen sang chu in hoa la: ', upcase(s)); readln end.
var s: string; i: integer; begin clrscr; write('Nhap xau s = '); readln(s); write('3 ki tu dau tien cua xau la: '); for i:=1 to 3 do write(s[i]:2); writeln(); write('Chuyen sang chu in hoa la: ', upcase(s)); readln end.