Hãy viết chương trình nhập một xâu từ bàn phím và đưa ra màn hình các thông số sau: a) Cho biết độ dài của xâu vừa nhập. b) Xâu thu được từ xâu đã nhập thỏa mãn: chỉ có chữ in hoa và chữ số. Nếu không có dữ liệu ghi ra màn hình dòng chữ: XAU RONG Giúp mình với ạ

program bai_giai;

uses crt;

var s,st:string;

     i:byte;

begin

      clrscr;

      write('Nhap xau: ');   readln(s);

      writeln('a. Do dai cua xau la: ',length(s));

      st:='';

      for i:=1 to length(s) do

            if (s[i] in ['A'..'Z']) or (s[i] in ['0'..'9']) then st:=st+s[i];

      if length(st)=0 then write('b. XAU RONG')  else write('b. ',s);

      readln;

end.

uses crt;
var s,st:string;
     i:byte;
begin
clrscr;

Write('nhap xau S: ');   readln(s);
Writeln('do dai cua xau la: ',length(s));
st:='';
For i:=1 to length(s) do
If (s[i] in ['A'..'Z']) or (s[i] in ['0'..'9']) then st:=st+s[i];
If length(st)=0 then write('xau rong')  

else write(s);
Readln;
End.