y:=0;
		for i := 2 to x-1 do
			begin
   			if (x MOD i=0) then
      		y:=y+1;
			end;
 				if y> 0 then
		 			writeln(x,' não é primo');
		 		if y=0 then
		 			writeln(x,' é primo.');