Помогите решить номер 467 примеры З, К, M даю 100 баллов

Question

Помогите решить номер 467 примеры З, К, M даю 100 баллов

---

Answer 1

Program Resheto;
Var
  M : set of byte;
  i, k, N : Integer;
Begin
  Writeln('Введите размер промежутка (до 255) ');
  Readln(N);
  M := [2..N];
  For k := 2 to N div 2 do
    For i := 2 to N do
      If (i mod k=0) and (i<>k)
        Then
          M := M-[i];
  For i := 1 to N do
    If i in M
      Then
        Write(i:3);
  Readln;
End.