Đáp án:

uses crt;
var f1,f2:text;
n:longint;
procedure Nhap;
begin
           assign(f1,'tong.inp');reset(f1);
           assign(f2,'tong.out');rewrite(f2);
                read(f1,n);
end;
procedure Xuly;
var i,j,dem:longint;
begin
  dem:=1; {cho giá trị đầu là 1 vì bất kể n đều có 1 trường hợp là chính nó}
        for i:=1 to n do      
             for j:=i to n do
             if i+j=n then inc(dem);  write(f2,dem);
        {thuật toán ở đây phải xét xem hai số i và j cộng với nhau có=n không với điều kiện i và j phải bé hơn hoặc bằng n,tạo vòng lặp hai for để cho i+j=n}
end;
begin
Nhap;
Xuly;
close(f1);close(f2);
end. 

Giải thích các bước giải:

  test file inp:
    10
  file out:
    6
  file inp:
   8 
  file out:
   5
          GIẢI THÍCH THUẬT TOÁN
   Đầu tiên cho biến đếm luôn bằng với 1 vì bất kể n là số gì cũng có 1 trường hợp đó là chính nó
      Tiếp theo cho một biến i chạy từ 1 tới n và j chạy từ i tới n nếu i+j=n thì tăng biến đếm.
          vd: 
              khi i=1 thì j sẽ chạy từ i tới n
                 sẽ thử 1+1 rồi 1+2 rồi 1+3 rồi 1+..n nếu cộng lại =n thì tăng đếm nếu không thì giữ nguyên biến đếm.Không biết gì cứ việc hỏi mình