program ct;

uses crt;

var x,s1,s2:string;

      i,d:integer;

begin

clrscr;

write('nhap xau thu nhat:');readln(s1);

write('nhap xau thu hai:');readln(s2);

x:=s1+' '+s2;

writeln('xau vua ghep la:',x);

for i:=1 to length(x) do

if ('A'<=s1[i]) and (s1[i]<='Z') then inc(d);

writeln('co',d,'chu cai');

readln

end.

uses crt;
var s,s1,s2:string; i,d:longint;
begin
clrscr;
   write('Nhap xau 1: '); readln(s1);
   write('Nhap xau 2: '); readln(s2);
   s:=s1 + s2;
   writeln('a) Ghep: ',s);
   writeln('b) Noi dung xau ',s1,': ',s1);
   writeln('   Noi dung xau ',s2,': ',s2);
   writeln('   Do dai xau ',s1,': ',length(s1));
   writeln('   Do dai xau ',s2,': ',length(s2));
   for i:=1 to length(s) do 
      if (s[i] in ['A'..'Z']) or (s[i] in ['a'..'z']) then inc(d);
   writeln('c) Ket qua: ',d);
readln
end.