program Min;
uses crt;
const so=['3','4','5','6','7'];
var s:string;
i,dem:integer;
begin
clrscr;
repeat
begin
writeln('Nhap xau: ');
readln(s);
end;
until length(s)<=20;
for i:=1 to length(s) do
if s[i] in so then inc(dem);
writeln('So luong cac so tu 3 den 7 co trong xau la: ',dem);
readln
end.
Bạn tham khảo nha, chỗ nào chưa hiểu thì hỏi mình :D