fork download

copy

program Anjuta;
var
  i,j  : integer;
  A    : array[1..5,1..5] of integer;
  B    : array[1..25] of integer;
  curB : integer;
begin
  {init of array}
  for i:=1 to 5 do
  begin
     for j := 1 to 5 do
     begin
         A[i,j] = i*j
     end
  end;
 
  {transoforming of array}
  curB := 1;
  for i := 1 to 5 do
  begin
      for j := 1 to 5 do
      begin
           if A[i,j]>10 then
           begin
               B[curB] : = A[i,j];
               curB := curB+1;
           end
      end
  end;
 
  writeln('Result:');
  for i:= 1 to curB do
  begin
     write(B[i]);
     write(' ')
  end;
  writeln;
end.		

prog.pas: In main program:
prog.pas:13: error: using `=' instead of `:=' in assignment
prog.pas:25: error: expression used as a statement
prog.pas:25: error: syntax error before `:'
prog.pas:25: error: missing `to' or `downto'
prog.pas:25: error: assignment of `for' loop counter
prog.pas:25: error: syntax error before `;'
prog.pas:25: 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:26: error: syntax error before `;'
prog.pas:26: error: missing `to' or `downto'
prog.pas:31: error: `for' loop bounds are of incompatible type
prog.pas:31: error: syntax error before `;'
prog.pas:31: error: missing `to' or `downto'
prog.pas:32: error: assignment of `for' loop counter
prog.pas:32: error: missing `to' or `downto'
prog.pas:32: error: assignment of `for' loop counter
prog.pas:32: error: missing `to' or `downto'
prog.pas:32: error: assignment of `for' loop counter
prog.pas:38: error: syntax error before `.'

Standard output is empty