Создать программу, которая выводит на экран простые числа в диапазоне от 2 до 1000. (число называется простым, если оно делится только на 1 и на само себя без остатка; причем числа 1 и 2 простыми не считаются).

var a, i:integer;

procedure del(i:integer; var a:integer);
var j :integer;
begin
   a:=0;
   for j:=1 to i do
      if i mod j = 0 then inc (a)
end;

begin
   writeln;
   for i:=2 to 1000 do
   begin
      del(i,a);
      if a=2 then write (i, ' ');
   end;
end.