program Prvocislo_4;

  (* Program, ktery urci, zda dane prorozene cislo n (n>1)
     je nebo neni prvocislo.
     Verze: 4 *)

uses Crt;

var d,n,Odmoc:integer;
    Prvocislo:Boolean;

begin
  ClrScr;
  Write('Zadej cislo n: ');
  ReadLn(n);
  if n<=3
     then Prvocislo:=true
     else if odd(n) then
             begin
               Odmoc:=trunc(sqrt(n));
               d:=3;
               while (n mod d<>0) and (d<Odmoc) do d:=d+1;
               Prvocislo:=n mod d<>0;
             end
                    else
             begin
               Prvocislo:=false;
             end;
  if Prvocislo then WriteLn(n,' je prvocislo')
               else WriteLn(n,' neni prvocislo');
end.