program Prvocisla1;

var test, i: 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
    begin
      prvocislo:=true;
      i:=2;
      while (prvocislo = True) and (i < test) do
      begin
        if (test mod i)=0 then
          prvocislo:=false;
        i:=i+1;
      end;
    end;
    if prvocislo then
      writeln(test, ' je prvoslo.')
    else
    writeln(test, ' nen prvoslo.');
  end;
  readln();
end.
