Đếm xem trong mảng có bao nhiêu dãy con liên tiếp có tổng bằng k

program doancon;
uses crt;
var a:array[1..1000] of longint;
    i,j,n,d,k:longint;
function tong(i,j:longint):longint;
var h:longint;
begin
tong:=0;
for h:= i to j do tong:=tong+a[h];
end;
begin
readln(n,k);
for i:= 1 to n do read(a[i]);
for i:= 1 to n do
for j:= i to n do
if tong(i,j)=k then inc(d);
writeln(d);
readln;
end.

Tham khảo ạ!