Определить, является ли число простым

var
 i: integer;
begin
 readln(i);
  if (i mod 2<>0) and (i mod 3<>0) and (i mod 5<>0) and (i mod 7<>0) then
   begin
    writeln('Простое!');
    end
   else
    begin
     writeln('Нет!');
    end;
end.

program tt;
uses crt;
var
  i,n:integer;
  f:boolean;
begin
  ClrScr;
  writeln('Введите число');
  readln(n);
  f:=false;
  for i:=2 to n-1 do begin
    if n mod i=0 then
      f:=true;
  end;
  if f=true then writeln('Непростое')
  else writeln('Простое');
  readln;
end.

program tt;
uses crt;
var
  i,n:integer;
  f:boolean;
begin
  ClrScr;
  writeln('Введите число');
  readln(n);
  f:=false;
  if n=1 then begin
    writeln('Непростое');
    exit
  end
  else
    if n>0 then
      for i:=2 to n-1 do begin
        if n mod i=0 then
          f:=true;
      end
    else begin
      writeln('Число отрицательно!');
      exit
    end;
  if f=true then writeln('Непростое')
  else writeln('Простое');
  readln;
end.

Uses
 crt;
var
  i,n:integer;
  f:boolean;
begin
  ClrScr;
  write('Ââåäèòå ÷èñëî: ');
  readln(n);
  f:=false;
  if n<=1 then
   f:=true
  else
  begin
  for i:=2 to n div 2 do
   if n mod i=0 then
    f:=true;
  end;
  if f then writeln('Íåïðîñòîå')
  else writeln('Ïðîñòîå');
  readln;
end.

uses crt;
var n, i, ch: integer;
begin
write('Please, input some numbe: ');
read(n);
ch:=0; i:=0;
while i<n do
begin
 inc(i);
 if n mod i=0 then ch:= ch+1;
end;
if ch=2 then write('The number is SIMPLE.')
        else write('The number is NOT simple.');
end.

var
 i:longint;
begin
 readln(i);
  if (i=2) or (i=3) or (i=5) or (i=7) or
  ((i mod 2<>0) and (i mod 3<>0) and (i mod 5<>0) and (i mod 7<>0)) then
       writeln('True')
       else
        writeln('False');
   end.

//является простым
function isprost(n:integer):boolean;
var i:integer;
    f:boolean;
begin
if n=2 then f:=true
else if (n=1)or(n mod 2=0) then f:=false
else
 begin
  f:=true;
  i:=3;
  while (i*i<=n)and f do
  if n mod i=0 then f:=false else inc(i,2);
 end;
isprost:=f;
end;