uses crt;
var s1,s2,s:string;i,k,kt:longint;
begin
 clrscr;
  write('s1=');readln(s1);
  write('s2=');readln(s2);
  write('k=');readln(k);
  s:=s1+s2;
  writeln('chieu dai xau s1 va s2 la:',length(s));
  writeln('xau s1 la:',s1);
  writeln('xau s2 la:',s2);
  writeln('hai xau sau khi duoc noi la:',s);
  if(length(s2)>length(s1))then writeln('xau dai hon la:s2')else writeln('xau dai hon la:s1');
  write('xau dao nguoc cua s1 la:');
  for i:=length(s1) downto 1do write(s1[i]);
  writeln;
  write('xau dao nguoc cua s2 la:');
  for i:=length(s2) downto 1do write(s2[i]);
  writeln;
  write('in hoa cua xau s1 la:');
  for i:=1 to length(s1)do
        begin
         s1[i]:=upcase(s1[i]);
         write(s1[i]);
        end;
  write('in hoa cua xau s2 la:');
  for i:=1 to length(s2)do
        begin
         s1[2]:=upcase(s2[i]);
         write(s2[i]);
        end;
  kt:=0;
  for i:=1 to length(s1)do if(s1[i]='A')then kt:=1;
  if(kt=1)then writeln('ki tu A co trong xau s1') else writeln('ki tu A ko co trong xau s1');
 readln;
end.

program Xau;
uses crt;
var  s1,s2,s3,s4,s5,s6,d,s: string;
     i,dem: integer;
begin
      clrscr;
      write('Nhap xau s1: ');readln(s1);
      write('Nhap xau s2: ');readln(s2);
         s:=s1 + s2;
  
     
      writeln('Chieu dai xau s1 la: ',length(s1));
      writeln('Chieu dai xau s2 la: ',length(s2));
      writeln('Xau s1 la: ',s1);
      writeln('Xau s2 la: ',s2);
      writeln('Noi hai xau: ',s);
         If length(s1) > length(s2) then writeln('Xau dai nhat la s1') else
           writeln('Xau dai nhat la s2');
         for i:=length(s1) downto 1 do
            s3:= s3 + s1[i];
         for i:=length(s2) downto 1 do
            s4:= s4 + s2[i];
      writeln('Xau s1 dao nguoc: ',s3);
      writeln('Xau s2 dao nguoc: ',s4);
         for i:=1 to length(s1) do
                begin
             d:=upcase(s1[i]);
             s5:= s5 + d;
                end;
      writeln('Xau s1 in hoa: ',s5);
         for i:=1 to length(s2) do
                begin
             d:=upcase(s2[i]);
             s6:= s6 + d;
                end;
      writeln('Xau s2 in hoa: ',s6);
         for i:=1 to length(s1) do
            If s1[i] = 'A' then dem:=dem+1;
        If dem <> 0 then write('Co ki tu A trong xau s1') else
          write('Khong co ki tu A trong xau s1');
  readln;
end.