program prim;
var
  i, j : integer;
begin
  for i := 2 to 50 do   
  begin
    for j := 2 to i do
      if (i mod j) = 0  then
        break; {* ha van osztója, nem prím! *}
      
      if (j = i) then
        writeln(i , ' prim' );
  end;
end.