Cho trẹp vb bt3.txt gồm nhiều dòng, viêdt chương trình đọc dữ liệu từ tệp bt3.txt, đếm số lượng các chữ số trong tệp và in kêdt quả ra ngoài màn hình

program abcd;

uses crt;

const fi='bt3.txt';

var i,d:integer;

begin

assign(input,fi);rewrite(input);

for i:=1 to length(s) do if s[i] in ['0'..'9'] then inc(d);

write(d);

readln;

end.

program bao_giai;
uses crt;
var f:text;
    s,st:string;
    i,d:integer;
begin
    clrscr;
    Assign(f,'bt3.txt');  reset(f);
    st:='';
    while not eof(f) do
        begin
            readln(f,s);
            st:=st+s;
        end;
    d:=0;
    for i:=1 to length(s) do
        if s[i] in ['0'..'9'] then d:=d+1;
    write(d);
    readln; close(f);
end.