Nhập vào từ bán phím chuỗi S không quá 255 kí tự In ra màn hình các chuỗi thu được sau khi phân loại : chuỗi chỉ bao gồm các số thập phân ( chuỗi số), chuỗi chỉ bao gồm các kí tự chữ thường ( chuỗi chữ thường), chuỗi chỉ bao gồm các kí tự chữ hoa ( chuỗi chữ hoa) và chuỗi cac ký tự còn lại sau khi loại bỏ ba yêu cầu trên VD S= EAbgh124KB98 @** chuỗi số: 12498 chuỗi chữ thường: bgh chuỗi chữ hoa: EAKB chuỗi còn lại: @** GIÚP VỚI Ạ

uses crt;
var s,cs,cct,cch,ccl:ansistring;
    i:longint;
begin
clrscr;
readln(s);
for i := 1 to length(s) do
 begin
  if s[i] in ['0'..'9'] then cs := cs + s[i];
  if s[i] in ['a'..'z'] then cct := cct + s[i];
  if s[i] in ['A'..'Z'] then cch := cch + s[i];
  if not (s[i] in ['0'..'9']) and not (s[i] in ['a'..'z'])
  and not (s[i] in ['A'..'Z']) and (s[i] <> #32)
  then ccl := ccl + s[i];
 end;
writeln('Chuoi so: ',cs);
writeln('Chuoi chu thuong: ',cct);
writeln('Chuoi chu hoa: ',cch);
writeln('Chuoi con lai: ',ccl);
readln;
end.