Viết chương trình tính tổng các cặp số nguyên được lưu trữ trong tệp input.txt (các số cách nhau bởi dấu cách và được viết trên cùng một dòng). Tính và đưa kết quả ra màn hình. Ví dụ minh họa: Trong tệp input.txt chứa dãy các số nguyên 2 4 7 13 25 6 18 -1 ⇒Tổng các cặp số liên tiếp xuất ra màn hình là 6 20 31 17

Const Fi='Input.txt';
Var f: text;
    A: array[1..1000] of longint;
    n,i: longint;
Begin
        Assign(f,Fi); Reset(f);
        n:=0;
        While not eof(f) do
        Begin
                inc(n);
                Read(f,A[n]);
        End;

        For i:=1 to n do
                If i mod 2 = 1 then
                        Write(A[i]+A[i+1],' ');
        Close(f);
        Readln
End.

var f:text;
        a,b:array[1..100] of integer;
        i,n,j,p,v:integer;
const
        fi='INPUT.txt';
begin
        assign(f,fi); reset(F);
        n:=0;
        while not eof(f) do
        begin
                n:=n+1;
                read(f,a[n]);
        end;
        v:=0;
        p:=0;
        while i<=n-2 do
        begin
                i:=i+1;
                v:=a[i]+a[i+1];
                p:=p+1;
                b[p]:=v;
                i:=i+1;
                v:=0;
        end;
        for i:=1 to p do
        write(b[i],' ');
        close(f);
end.