Простые числа, паскаль

[Flower2]

Написать программу для вывода всех простых трехзначных чисел на экран. Можно с пояснением пожалуйста, пыталась сделать ничего не получается

[Arigato]

В цикле каждое 3-х значное на простату проверяйте:

for i := 100 to 999 do begin
  prostatit := true;
  for j := 2 to i div 2 do begin
    if i mod j = 0 then begin
      prostatit := false;
      break;
    end;
  end;
  if prostatit then 
    WriteLn(i);
end;

[Flower2]

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

В цикле каждое 3-х значное на простату проверяйте:

for i := 100 to 999 do begin
  prostatit := true;
  for j := 2 to i div 2 do begin
    if i mod j = 0 then begin
      prostatit := false;
      break;
    end;
  end;
  if prostatit then 
    WriteLn(i);
end;

for j := 2 to i div 2 do begin
if i mod j = 0 then begin
Это что? Берется число от 2 до 999 делится на 2, потом целая часть если равняется 2 то 0?

[Arigato]

Это мы делители ищем. Число простое, если делится только на 1 и на самого себя.

[Flower2]

Блин, не могу разобраться!

[Artsiom]

Сайт http://sovetolka.ru.
Очень подробно объяснено. Вроде ответы верны.
План решения:
1. В цикле от 999 до 101 делаем следующее
1.1. Считаем, что число простое
1.2. В цикле от N-1 до 2 проверяем остаток от деления числа. Если остаток равен нулю - считаем что число не простое и выходим из цикла.
1.3. Если число простое, то выводим его на экран

var n,i:integer;
    prostoe:boolean;
begin
     n:=999;
     while n>100 do
     begin
          prostoe:=true;
          i:=n-1;
          while (i>1) and (prostoe = true) do
                if n mod i = 0 then
                   prostoe:=false
                else
                    i:=i-1;
          if prostoe=true then
             write(n:5);
          n:=n-1;
     end;
     readln;
end.

Блок-схема http://sovetolka.ru/wp-content/uploa...03/prostie.jpg