program Prvocislo_2;

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

uses Crt;

var d,n:integer;

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