program tab;

procedure primeiros_multiplos(n, x: integer);
var
   i : integer;
begin
   for i := 1 to n do
      write(i * x:3, ' ');
   writeln;
end;

procedure tabuada (n, x: integer);
var
   i : integer;
begin
   for i := 1 to x do
      primeiros_multiplos(n, i);
end;

var
   n, x	: integer ;
begin
   writeln('Imprime o n primeiros múltiplos de 1 a x.');
   write('n: '); read(n);
   write('x: '); read(x);
   tabuada(n,x);
end.