Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
program xau; uses crt; var st : string; begin clrscr; write('Nhapho ten nguoi do :'); readln(st); writeln('Ten nguoi do la :',st); writeln('Ten nguoi do co ',length(st),' ki tu '); readln end.