program Prvocisla2;

var test, i, j: integer;
    prvocislo: boolean;

begin
  writeln('Zadej slo');
  readln(test);
  if test < 0 then
    writeln('Testuji jen nezporn sla.')
  else
  begin
    if (test = 0) or (test = 1) then
      prvocislo:=false
    else
    for j:=2 to test do
    begin
      prvocislo:=true;
      i:=2;
      while (prvocislo = True) and (i < j) do
      begin
        if (j mod i)=0 then
          prvocislo:=false;
        i:=i+1;
      end;
      if prvocislo then
        write(j, ' ');
    end;
    writeln();
    if prvocislo then
      writeln(test, ' je prvoslo.')
    else
    writeln(test, ' nen prvoslo.');
  end;
  readln();
end.