Множество, содержащее натуральные числа из первой сотни. Сформировать новое множество из простых чисел первого множества

[Aimet]

помогите пожалуиста!!! Завтра утром экзамен...
Имеется множество, содержащее натуральные числа из первой сотни. Сформировать другое множество, которое содержит все простые числа из данного множества.
это надо сделать на языке PascalABC

[Serge_Bliznykov]

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

var MyMnojestvo, SimpleMnojestvo : set of 1..99;
    i : integer;

begin
   .... тут ввод исходных данных в MyMnojestvo ....

  {а вот, собственно и решение}
  SimpleMnojestvo := [];
  for i:=1 to 99 do
   if (i in MyMnojestvo) and isPrime(i) then
     Include(SimpleMnojestvo, i);

....

[Aimet]

Это программа будет работать на PascalABC??

[Serge_Bliznykov]

Это программа будет работать на PascalABC

Ваше устверждение истинно!


только не забудьте добавить ввод в исходное множество (обязательно)
(ну и вывод результатов - по желанию...)