Оператор While!!

[Junger]

Помогите решить задачу!!!!

Дано целое число N(>1).Если оно яв-ся простым то есть имеет положительный делитель,кроме 1 и самого,то вывести True,иначе вывести Fasle...!!!!!!!

[Niro]

Эх... Поискали бы по форуму и наверняка нашли бы решение, раз не хотите, то держите, остальное сами допишите

flag:=true;
while i<(n-1) do
   begin
      if (n mod i)=0 then flag:=false;
   end;
writeln(flag);

n - вводимое число
flag - переменная типа boolean
В коде кое-чего не хватает, это ведь цикл, а в цикле надо...

[eoln]

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

...Если оно яв-ся простым то есть имеет положительный делитель,кроме 1 и самого...

Неувязочка, понимаешь