Viết chương trình nhập vào một xâu sau đó in ra màn hình
2 câu trả lời
program oken;
uses crt;
var s: string;
begin
clrscr;
write('Nhap xau: '); readln(s);
writeln('Xau vua nhap: ',s);
writeln('Do dai cua xau: ',length(s));
readln;
end
