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.