fork download

copy

program ideone;
var n, i, e:integer;
var a array [1..10000] of integer;
begin
e:= 0;
read(n);
for i:=2 to n do begin
if a[i]-a[i-1]>1 then begin
e:= e+1;
a[i]:=a[i]-1;
end;
if a[i-1]-a[i]>1 then begin
e:= e+1;
a[i-1]:=a[i-1]-1;
end;
if a[1]-a[i]>1 then begin
e:= e+1;
end;
a[1]:= a[1]-1;
if a[i]-a[1]>1 then begin
a[i]:= a[i]-1;
e:= e+1;
end;
end;
write(e);
end.

prog.pas:3: error: syntax error before `array'
prog.pas: In main program:
prog.pas:8: error: undeclared identifier `a' (first use in this routine)
prog.pas:8: error:  (Each undeclared identifier is reported only once
prog.pas:8: error:  for each routine it appears in.)

Standard output is empty