var s1,s2,s3 :string;
l,k,kt,i: byte;
begin
s1:='thang ba trieu phong';
s2:='quang tri';
l:=length(s1)d\v3;
instert(s1,s2,7)
k:=pos('4,s1');kt:=length(s1)
for i:=1to length(s2)do s3:=s3+upcase(s1[i]);
readln
end.
hãy xđ s2,s3,l,k,kt
Loga
Sinh Học lớp 12
