program bai_xau;
uses crt;
var s1,s2:string;
i:byte;
begin
clrscr;
write('Nhap xau thu nhat: '); readln(s1);
write('Nhap xau thu hai: '); readln(s2);
writeln('Do dai xau thu nhat la: ',length(s1));
write('Xau dao nguoc cua xau thu hai la: ');
for i:=length(s2) downto 1 do write(s2[i]);
readln;
end.