giúp mk vsssssssssssssssssssssssssss

program tc;
uses crt;
var KT:BOOLEAN;
    t1,t2:text;
    n,res,j,u,i,k,t: longint;
    a, s: array[0..1020] of longint;
/////////////////////////////////////////////////////////
procedure gan;
begin
assign(t1,'DIV.INP'); RESET(T1);
ASSIGN(T2,'DIV.OUT'); REWRITE(T2);
END;
//////////////////////////////////////////////////////
function ok(t: longint): boolean;
var i,u,tong: longint;
begin
   tong:=0;
   for i:=1 to n do if a[i]<>0 then
      begin
         tong:=tong+a[i];
         if tong=t then tong:=0;
      end;
   exit(tong=0);
end;
/////////////////////////////////////////////////////
procedure nhap;
begin
   read(t1,n);
   KT:=TRUE;
   IF (N<=0) OR (N>1000) THEN BEGIN KT:=FALSE; EXIT; END;
   for i:=1 to n do
   BEGIN
   read(t1,a[i]);
   IF (A[I]<=0) OR (A[I]>1000) THEN BEGIN KT:=FALSE; EXIT; END;
   END;
end;
///////////////////////////////////////////////////////
procedure xl;
begin
   s[0]:=0;
   for i:=1 to n do s[i]:=s[i-1]+a[i];
   for k:=n downto 1 do if s[n] mod k=0 then
      begin
         t:=s[n] div k;
         if ok(t) then
            begin
               res:=k;
               break;
            end;
      end;
   writeln(t2,res);
end;
///////////////////////////////////////////////////////////
BEGIN
   clrscr;
   gan;
   nhap;
   if kt=true then xl else writeln(t2,'SAI DK');
   close(t1);
   close(t2);
END.