Вот на си, влом на паскаль переделывать - сам сделаешь (вроде работает):
#include<stdio.h>
#include<conio.h>
void main()
{
printf("\n Простые числа от 1 до 1000 :"
;
int i,j,k;
for(i=1; i<=1000; i++)
{
k=0;
for(j=2; j<i; j++)
if (int(i/j)==(float)i/(float)j) k++;
if (k==0) printf(" %i",i);
}
getch();
}
сам добавишь чтоб до нужного числа было - ломает делать считывание с клавиатуры...
