Программа на языке паскаль. дано натуральное n . определить, является ли оно простым.

var n,i: integer;

begin

  read(n);

  for i : = 2 to n-1 do

    if n mod i = 0 then begin

          writeln('ne prostoe');

            exit;

      end;

  end;

  writeln('prostoe');

end.

хочу , что до настоящего времени эта для любого натурального n численно не ! . то есть, до сих пор не написана программа, которая, работая на самом мощном компьютере, могла бы определить простоту числа n за приемлемое время(не сотни и тысячи лет, как сейчас). конечно, эти n - большие. если  бы кто нибудь написал такую программу, то рухнула бы вся банковская система, и все отрасли, включая военные, так как везде  применяются алгоритмы шифрования данных, основанные на простых числах и подобрать шифр можно было бы за приемлемое время. вот такая с этой сложной .

что касается "детского" варианта, наверное самый простой алгоритм - решето эратосфена. да, красивое(но ресурсное) решение может получиться с использованием рекурсии(не знаю, допускает ли рекурсию школьный паскаль, но поинтересуйтесь, что это такое).

текст программы приводить не буду, он, вероятно, опубликован в каждом втором букваре по программированию.