Program Hotboy ;
uses crt;
var h,o:string;
begin
clrscr;
writeln('Nhap xau thu nhat'); readln(h);
Writeln('do dai xau thu nhat ',length(h));
writeln('Nhap xau thu hai ');readln(o);
writeln('Do dai xau thu hai la: ',length(o));
writeln('Tong do dai cua hai xau la: ',length(h)+length(o));
readln
end.