поиск простых чисел паскаль

[Anonymous_1]

пример:
--------------------------------------------------
read(a);
--------------------------------------------------
Это простое число (или "Это не простое число")
--------------------------------------------------
Есть простой способ? Помогите по братски!

[Alex11223]

Вы не перепутали "помогите" и "сделайте за меня"?

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[dummy_user]

Если число делится на 1 и на само себя, то это простое число.

[Serge_Bliznykov]

function isPrime(X: LongInt): boolean; {проверка числа на простоту}
var i, mborder: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     mborder := trunc(sqrt(x));
     while i <= mborder  do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

var a : longint;
begin
   WriteLn('Введите a');
   ReadLn(a);
   if  isPrime(a) then WriteLn(' простое  ') else WriteLn('составное');
   readln;
end.

[Вадим Мошев]

Сообщение от dummy_user

Если число делится на 1 и на само себя, то это простое число.

Тогда все числа являются простыми, исходя из этого утверждения (что есть ложь)

[dummy_user]

Сообщение от Вадим Мошев

Тогда все числа являются простыми, исходя из этого утверждения (что есть ложь)

Я видимо не дописал слово: "только на 1 и на само себя".