Дано натуральное число.Верно ли, что оно является простым?

[Роял]

Дано натуральное число.Верно либ что оно является простым?
...написать программу на паскале...

[Serge_Bliznykov]

поиском бы прошлись, нашли КУЧУ тем..

ладно, для затравки:

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