fork download

copy

program duskolo_2 (input, output);
var metr, k, i, l, sum, f : integer;
    A : array [1..1000000] of integer;
    athr : array [1..1000000000000] of integer;
begin
readln(n);
i:=1;
while (not eoln) do begin readd(A[i]); i:=i+1 end;
metr:=1;
for k:=1 to i-1 do 
    begin
    sum:=A[k];
    for l:=k+1 to i do
        begin
        sum:=sum+A[l];
        athr[metr]:=sum;
        metr:=metr+1
        end
    end;
max:=athr[1];
for f:=1 to metr-1 do if athr[f]>max then max:=athr[f];
writeln(max)
end.

prog.pas:4: error: size of array is too large
prog.pas: In main program:
prog.pas:6: error: undeclared identifier `n' (first use in this routine)
prog.pas:6: error:  (Each undeclared identifier is reported only once
prog.pas:6: error:  for each routine it appears in.)
prog.pas:8: error: undeclared identifier `readd' (first use in this routine)
prog.pas:16: error: undeclared identifier `athr' (first use in this routine)
prog.pas:20: error: too few arguments to `Max'
prog.pas:21: error: too few arguments to `Max'
prog.pas:21: error: too few arguments to `Max'
prog.pas:22: error: too few arguments to `Max'

Standard output is empty