fork download

copy

program exetasi1(input,output);
	var  n,i,j,position,sum0,min : integer;
                               a : array[1..1000000] of integer;
 
begin
   readln(n);
   for i := 1 to n do read(a[i]);
   if a[1]>0 then sum0 := (a[1] + a[2])
   else if a[n]<0 then sum0 := ( a[n] + a[n - 1])
   else
   begin
      sum0 := 2*1000000000;
      for i := 1 to n do
      begin
        if a[n]>0 then do position := a[n-1];
      end;
      for i := 1 to position do
      begin
         for j := (position + 1) to (n - 1) do
         begin
              if abs(a[j])<abs(a[i]) and (abs(a[j + 1]> abs(a[i]) then
              begin
                if abs(a[i] + a[j])< abs(a[i] + a[j + 1]) then min := abs(a[i] + a[j])
                else min := abs(a[i] + a[j + 1])
              end;
              if abs(min)<abs(sum0) then sum0 := min
         end
       end
       if position<=( n - 2) then 
       begin
         if (a[position + 1] + a[position + 2])<abs(sum0) then sum0 := (a[position + 1] + a[position + 2])
       end;
       if position >= 3 then 
       begin
         if abs(a[position - 1] + a[position])< abs(sum0) then sum0 := (a[position] + a[position  - 1])
       end
  end;
  writeln(sum0)
end.
 
 

prog.pas: In main program:
prog.pas:15: error: syntax error before `do'
prog.pas:15: error: missing `to' or `downto'
prog.pas:15: error: assignment of `for' loop counter
prog.pas:15: error: missing `to' or `downto'
prog.pas:15: error: assignment of `for' loop counter
prog.pas:15: error: syntax error before `;'
prog.pas:15: error: missing `to' or `downto'
prog.pas:17: error: assignment of `for' loop counter
prog.pas:17: error: missing `to' or `downto'
prog.pas:17: error: assignment of `for' loop counter
prog.pas:17: error: missing `to' or `downto'
prog.pas:17: error: assignment of `for' loop counter
prog.pas:21: error: syntax error before `then'
prog.pas:23: error: syntax error before `then'
prog.pas:23: error: missing `to' or `downto'
prog.pas:23: error: assignment of `for' loop counter
prog.pas:23: error: missing `to' or `downto'
prog.pas:23: error: assignment of `for' loop counter
prog.pas:24: error: syntax error before `else'
prog.pas:24: error: missing `to' or `downto'
prog.pas:24: error: assignment of `for' loop counter
prog.pas:24: error: missing `to' or `downto'
prog.pas:24: error: assignment of `for' loop counter
prog.pas:25: error: syntax error before `end'
prog.pas:25: error: missing `to' or `downto'
prog.pas:26: error: `for' loop bounds are of incompatible type
prog.pas:26: error: syntax error before `then'
prog.pas:26: error: missing `to' or `downto'
prog.pas:26: error: assignment of `for' loop counter
prog.pas:26: error: missing `to' or `downto'
prog.pas:26: error: assignment of `for' loop counter
prog.pas:27: error: missing `to' or `downto'
prog.pas:29: error: `for' loop bounds are of incompatible type
prog.pas:29: error: syntax error before `then'
prog.pas:29: error: missing `to' or `downto'
prog.pas:31: error: `for' loop bounds are of incompatible type
prog.pas:31: error: syntax error before `then'
prog.pas:31: error: missing `to' or `downto'
prog.pas:31: error: assignment of `for' loop counter
prog.pas:31: error: missing `to' or `downto'
prog.pas:31: error: assignment of `for' loop counter
prog.pas:32: error: syntax error before `end'
prog.pas:32: error: missing `to' or `downto'
prog.pas:33: error: `for' loop bounds are of incompatible type
prog.pas:33: error: syntax error before `then'
prog.pas:33: error: missing `to' or `downto'
prog.pas:35: error: `for' loop bounds are of incompatible type
prog.pas:35: error: syntax error before `then'
prog.pas:35: error: missing `to' or `downto'
prog.pas:35: error: assignment of `for' loop counter
prog.pas:35: error: missing `to' or `downto'
prog.pas:35: error: assignment of `for' loop counter
prog.pas:36: error: syntax error before `end'
prog.pas:36: error: missing `to' or `downto'
prog.pas:38: error: assignment of `for' loop counter
prog.pas:39: error: syntax error before `end'
prog.pas:39: error: missing `to' or `downto'

Standard output is empty