сформировать массив

[amikulia]

сформировать массив из 15 простых чисел.правильно я решила?

uses crt;
var i,n:integer;
    simply:boolean;
    num:integer;
begin
clrscr;
n:=15;
num:=0;
repeat
      num:=num+1;
      simply:=true;
      for i:=2 to num div 2 do begin
          if num mod i =0 then begin
             simply:=false; break;
          end;
      end;
      if not simply then continue;
      write(num:3);
      n:=n-1;
      until n=0;
readln;
end.

[Stilet]

А ты запусти. Она верно сработает?
Что на экран выдается?

[Косюра]

Ну программа же выдает верный ответ. Так в чем вопрос?

[XeruH]

Вроде не правильно.. Вы попробуйте к каждой строке составить комментарий.

[Косюра]

А почему не правильно?
ДАже вот это мне понравилось

      for i:=2 to num div 2 do begin

хороший ход.

[Grag]

Самый знаменитый квадратичный трёхчлен Л. Эйлера, производящий простые числа:
x^2 + x + 41

Первые 40 значений этого трёхчлена (при x = 0, 1, 2, …, 39) являются простыми числами.
Это больше, чем нужные 15...