Viết chương trình tìm đoạn con dài nhất có tổng chia hết cho k (k nhập từ bàn phím, pascal )

for i,1,n
begin
 sum= 0;

 for j,i,n 
 begin   
  
  sum = sum + a[j];
     if (sum mod k=0) 
  if (j-i+1 > kq) 
   begin
    kq=i-j+1;
    st=i;
    fi=j;
   end;
 end;
writeln('dodaicuadoan:',kq);
writeln('doandola:');
for i:=st to fi do write(a[i],' ');

Cho mình xin (5 sao + 1<3 + câu trả lời hay nhất) nha = ))

for i,1,n
begin
 sum= 0;

 for j,i,n 
 begin   
  
  sum = sum + a[j];
     if (sum mod k=0) 
  if (j-i+1 > kq) 
   begin
    kq=i-j+1;
    st=i;
    fi=j;
   end;
 end;
writeln('dodaicuadoan:',kq);
writeln('doandola:');