Program PrimeNumber;

Uses Crt;

var i,f,n:integer;
begin

     clrscr;
      write('Введите число:');
      readln(n);

      f:=0;  
      for i:=2 to trunc(sqrt(n)) do
              if (n mod i)=0 then f:=1;
      if (f=0) then writeln('Число является простым')

                     else writeln('Число не является простым');
      readkey;
end.