Câu 1 :
uses crt;
var S1, S2 : string;
begin
clrscr;
write('Nhap xau S1 = '); readln(S1);
write('Nhap xau S2 = '); readln(S2);
write('Do dai 2 xau = ', length(S1) + length(S2));
readln
end.
Câu 2 :
uses crt;
var S1 : string;
begin
clrscr;
write('Nhap xau S1 = '); readln(S1);
if pos('11a1', S1) <> 0 then write('Co')
else write('Khong');
readln
end.