program Anderson;
uses Crt;

var

n : integer;
i : integer;
begin


   writeln ('numero');
   readln (n);

   for i := 1 to n do begin

      if ( n mod i = 0 ) then begin
         writeln (i, ' Multiplo');
      end else begin
         writeln (i, ' não é multiplo');
      end;
   end;