Напишите программу, которая определяет, является ли введенное число простым.

а проше?

for i ;= 2 to n-1 do if n mod i = 0 then writeln('не простое') halt

var  n, i, f: integer;begin  write('Введите число: ');  readln(n);  i:= 0; f:=0;  while i < n do  begin    i := i + 1;    if n mod i = 0 then f := f + 1;  end;  if f = 2 then writeln('Простое')  else writeln('Не простое');end.

Программа на С++ с асимптотикой sqrt(N) во вложении