var  x:array[1..12] of integer;
     i,n:integer;
begin
     n:=12;
     Randomize;
      i:=1;
       While i<=n do
        begin
          x[i]:=Random(25)-10;
           Inc(i);
        end;
     i:=1;
      repeat
        if x[i]>10
         then x[i]:=100;
        Write(x[i]:4);
         Inc(i);
      until i>n;
     Writeln;
     Readln;
end.