program ci_je_prvocislo;
uses Crt;
var i,N : integer;
    delitel : boolean;

begin
  Clrscr;
  write('Zadaj cislo, o ktorom chces vediet ci je prvocilo: ');
  readln(N);
  if N<2 then writeln('Cislo nie je prvocilo')
  else begin
    i:=2;
    delitel:=FALSE;
    while (i<=(sqrt(n))) AND (delitel=FALSE) do begin
      if (N mod i)=0 then delitel:=TRUE;
      inc(i);
    end;
    if delitel=TRUE then writeln('Cislo nie je prvocilo')
    else writeln('Cislo je prvocislo');
  end;
  readln;
end.