Опишите множество Pr(1..20) и поместите в него все прстые числа в диапозоне от a до b

[SPARTA]

помогите
тема:Множество в паскале
Опешите множество Pr(1..20) и поместите в него все прстые числа в диапозоне от a до b

[-=<[Evklidd]>=-]

Вот и код вашей программы:

program pro30;
var
 s: set of 1..20;
 a, b, i, k: 1..20;
begin
 s:= [];
 writeln('Vvedite nizniu granizu diapozona poiska prostux chisel, >= 2: ');
 readln(a);
 writeln('Vvedite verxniu granizu diapozona poiska prostux chisel, <= 20 : ');
 readln(b);
 for i:= a to b do
  include(s,i); 
 for i:= a to b do
  for k:= 2 to (b div 2) do
   if (i <> k) and (i mod k = 0) then
    exclude(s,i);
 writeln('Prostue chisla v diapozone ot ', a, ' do ', b);
 for i:= 1 to 20 do
  if (i in s) then
   write(i,' ');
 readln;
end.

ЗЫ. я добавил вывод простых чисел, чтобы было по нагляднее

[SPARTA]

спасибо большое выручил