Câu 1 :
uses crt;
var s : string;
begin
clrscr;
write('Nhap xau : '); readln(s);
writeln('In hoa ki tu dau : ', upcase(s[1]));
writeln('In hoa ki tu cuoi : ', upcase(s[length(s)]));
readln
end.
Câu 2 :
uses crt;
var s1, s2 : string;
begin
clrscr;
write('Nhap xau 1 : '); readln(s1);
write('Nhap xau 2 : '); readln(s2);
if s1[length(s1)] = s2[length(s2)] then
write('Trung') else write('Khong trung');
readln
end.