1. Kiểu nguyên, kiểu thực, kiểu kí tự, kiểu logic.
2. (Mình không biết làm câu này.)
3. 
program dem;
var a:string;
      CS, i, k: integer;
begin
       write('Nhap xau a'); readln(a);
       k:=length(a); CS:=0;
       for i:=1 to k do
               if a[i] in ['0'..'9'] then CS:=CS+1;
       write('Co', CS ,'chu so');
       readln;
end.