Program nombre_primoriel;
Uses Wincrt;
Var
  n,a,s: Integer;

Function verif (n:Integer): Integer;
Var
  s: Integer;
Begin
	  s := 0;
  For a:=2 To n Div 2 Do
    If n Mod a = 0 Then
      s := s+1;
			verif := s ;
End;
Begin
  Write('n: ');
  Readln(n);


  If verif(n) <> 0 Then
    Writeln(n,' mouch premier')
  Else
    Writeln(n,' premier ');
End.