Найти все трехзначные простые числа ( большее 1, не имеющее других делителей, кроме 1 и самого себя) Вложенный цикл

[veniside]

без массива за отдельные деньги )

[Mad_Cat]

program sing;
uses crt;
const
 n1 = 100;
 n2 = 999;
var  i, j:integer;
 bool : boolean;

begin
   for i := n1 to n2 do begin
        bool := true;
        for j := 2 to i div 2 do begin
             if i mod j=0 then begin bool := false; break; end;
        end;
        if bool then writeln(i);
   end;
end.

[Leshii]

Вот сложно было в самом условии указать что решать задание надо без массива ?) Уважаемая ну это не дело. Напишите наново условие со всеми критериями, а именно: как, что, куда, зачем ( Обязательно ! ).
Мне вот уже самому порой не нравятся посты где ты за кого-то делаеш задачу, а потом выскакивает сообщение, а нам мол не так говорили делать.
Мы же не телепаты

[veniside]

if i mod j then begin

Mad_Cat, это С или Паскаль, не узнаю в гриме )
код, кстати, не рабочий, выдаёт непоймичто )

http://ideone.com/cLkdm

[Mad_Cat]

http://ideone.com/N2UxI