fork download

copy

const   fi      ='';
        fo      ='';
        oo      =1000;
 
var     a       :array[0..oo,0..oo] of 0..1;
        l,h,dem:array[0..oo+1] of int64;
        m, n    :longint;
 
procedure Optimize;
var     i, j    :longint;
        ans     :int64;
begin
        fillchar(h, sizeof(h),0);
        ans:=0;
        for i:=1 to m do
                begin
                        for j:=1 to n do
                                begin
                                        if a[i,j]=1 then begin
                                        l[j]:=j;
                                        h[j]:=h[j]+1;
                                        while h[l[j]-1]>h[j] do
                                                l[j]:=l[l[j]-1];
                                        dem[j]:=h[j]*(j-l[j]+1)+dem[l[j]-1];
                                        ans:=ans+dem[j];
                                        //writeln(ans,'==');
                                        //if (i=3) and (j=2) then writeln(dem[1]);
                                        end
                                        else begin
                                                dem[j]:=0;
                                                l[j]:=0;
                                                h[j]:=0;
                                        end;
 
                                end;
 
                end;
        writeln(ans);
end;
 
procedure run;
var     i, j, tg    :longint;
        s       :ansistring;
begin
        assign(input,fi);assign(output,fo);
        reset(input);rewrite(output);
        readln(m, n);
        for i:=1 to m do
                begin
                        readln(s);
                        for j:=1 to n do
                                        val(s[j],a[i,j]);
                end;
        Optimize;
        close(input);close(output);
 
end;
 
begin
        run;
end.

prog.pas:1: warning: missing program header
prog.pas:6: error: unknown identifier `int64'
prog.pas: In procedure `Optimize':
prog.pas:11: error: unknown identifier `int64'
prog.pas:13: error: undeclared identifier `h' (first use in this routine)
prog.pas:13: error:  (Each undeclared identifier is reported only once
prog.pas:13: error:  for each routine it appears in.)
prog.pas:14: error: undeclared identifier `ans' (first use in this routine)
prog.pas:20: error: undeclared identifier `l' (first use in this routine)
prog.pas:24: error: undeclared identifier `dem' (first use in this routine)
prog.pas: In procedure `run':
prog.pas:43: error: unknown identifier `ansistring'
prog.pas:50: error: undeclared identifier `s' (first use in this routine)

Standard output is empty