cho tệp DL.INP chứa các số nguyên liên tiếp.Mỗi số cách nhau 1 dấu cách , tệp không kết thúc bằng kí tự xuống dòng. Hãy cho biết tệp có bao nhiêu số nguyên. Tính tổng các số nguyên trong tệp

var f:text;
    a,t,d:longint;
begin
    assign(f,'DL.INP');reset(f);
    d:=0;t:=0;
    while not eof(f) do
        begin
            read(f,a);
            inc(d);inc(t,a);
        end;
    writeln(d,#13#10,t);
    close(f);
end.

program bai_giai;
uses crt;
var f:text;
    n,d,t:longint;
begin
    clrscr;
    Assign(f,'DL.INP');  reset(f);
    d:=0; t:=0;
    while not eof(f) do
        begin
            read(f,n);
            d:=d+1; t:=t+n;
        end;
    writeln('Co ',d,' so');
    writeln('Tong cac so la: ',t);
    readln;  close(f);
end.