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.

`1)`

var st:string;

begin

clrscr;

write('Nhap xau:'); readln(st);

writeln('Ki tu dau tien la: ',st[1]);

writeln('Ki tu cuoi cung la: ',st[length(st)]);

readln;

end.

`2)`

var x1,x2 : string;
begin clrscr;
writeln('Nhap xau ki tu thu nhat :'); readln(x1);
writeln('Nhap xau ki tu thu hai :'); readln(x2);
if length(x1) > length(x1) then writeln(x1) else
if length(x1) < length(x2) then writeln(x2) else
writeln(x1);
readln
end.