program phuongt; uses crt var s, a: string; begin write('Nhap xau 1: '); readln(s); write('Nhap xau 2: '); readln(a); if length(s)>length(a) then begin s[1]:=upcase(s[1]); write(s); end else begin a[length(a)]:=upcase(a[length(a)]); write(a); end; readln end.