الأعداد الأولية

السلام عليكــم ورحمـة الله وبركاتــه ،،

طلب مني صديق لي أن أكتب له إجرائية تعرض له الأعداد الأولية من 0 إلى 1000 فكتبت له التالي نزولا عند رغبته :

 Procedure TForm1.Button1Click(Sender: TObject);
var
x,i,j:Integer;
Begin
Memo1.Clear;
For i:=2 to 1000 do
Begin
j:=2;
 Repeat
 x:= i mod j;
 j:=j+1;
 Until x=0;
 If j-1=i then memo1.Lines.Add(IntToStr(i));
End
End;

و ها أنا أضعها هنا لعل أحدا يستفيد منها.

من كانت له تحسينات عليها فلا مانع عندي

بالتوفيق.