procedure RadkaX;
begin
   writeln( 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' )
end;

procedure Nadpis;
begin
   writeln( 'X    X   1   2   3   4   5   6   7   8   9  10 X' )
end;

procedure Nasobky( k: integer );
var i: integer;
begin
   write( 'X',k:3,' X' );
   for i:=1 to 10 do
      write( i*k:4 );
   writeln( ' X' )
end;

var  i: integer;
begin
   RadkaX;
   Nadpis;
   RadkaX;
   for i:=1 to 10 do
      Nasobky( i );
   RadkaX
end.




















const
   MAX = 1000*30;
var
   p: array[2..MAX] of boolean;
   i,j: integer;
begin
   for i:=2 to MAX do
      p[ i ] := TRUE;

   for i:=2 to MAX do
      if p[ i ] = TRUE then
      begin
         write( i,' ' );

         for j:=2 to MAX div i do
            p[ j*i ] := FALSE;

      end
end.













var
   p: array[ char ] of integer;
   c: char;
begin
   for c:=#0 to #255 do
      p[ c ] := 0;

   read( c );
   while c<>'.' do
   begin
      p[c] := p[c] + 1;
      read( c )
   end

end.




var
   p: array[ char ] of char;
   c: char;
begin
   { for c:=char(0) to char(255) do {}
   for c:=#0 to #255 do
      p[ c ] := c;

   p['a'] := 'e';
   p['i'] := 'u';
   p['m'] := 'n';

   read( c );
   while c<>'.' do
   begin
      write( p[c] );
      read( c )
   end
end.




var
   i: integer;
begin

   for i:=1 to 10 do
   begin
      if i=7 then
               i := i+1;
      write( i,' ' )
   end;
   writeln


end.




var
   i: integer;
begin

   for i:=1 to 10 do
   begin
      if i=2 then
               continue;
      if i=7 then
               break;
      write( i,' ' )
   end;
   writeln


end.










var
   x: integer;
   p: array[1..1000] of integer;
   pocet: integer;
begin

   pocet := 0;

   read( x );
   while x<>-1 do
   begin

      pocet := pocet+1;
      p[ pocet ] :=x;

      read( x )
   end;

   while pocet > 0 do
   begin
      write( p[ pocet ],' ' );
      pocet := pocet-1
   end






end.