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

это не информатика а математика

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.