Var
 A:Array[1..10,1..3] of byte;
 i,j:byte;
Begin
 Randomize;
 for i:=1 to 10 do
  begin
   for j:=1 to 3 do
    begin
     A[i,j]:=Random(10);
     Write(A[i,j]:3);
    end;
   if (A[i,2]<=A[i,1]) or (A[i,3]<=A[i,2]) then
    writeln('   Order is corrupted!')
   else
    writeln('   Ordered')
  end;
 Readln
End.