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