program Prvocislo_3;

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

uses Crt;

var d,n:integer;

begin
  ClrScr;
  Write('Zadej cislo n: ');
  ReadLn(n);
  d:=trunc(sqrt(n));
  while n mod d<>0 do d:=d-1;
  if d=1 then WriteLn(n,' je prvocislo')
         else WriteLn(n,' neni prvocislo');
end.