Множество А содержит все нечетные числа из диапаазона от 1 до 200

Множесто В - простые числа из этого же диапазона.

Определить дополнение множества В до множества А.

Задачка на Паскале.

Var i, j, simple_n, res_n : integer;

Res, Simple: array[1 ... 100] of integer;

Found:boolean;

Begin

for i : = 2 to 200 do begin

found : = false;

for j : = 1 to simple_n do

found : = found or (i mod Simple[j] = 0) ;

if found and (i mod 2 = 1) then begin

res_n : = res_n + 1;

Res[res_n] : = i;

writeln ('Res = ', Res[res_n]:4) ;

end;

if not found then begin

simple_n : = simple_n + 1;

Simple[simple_n] : = i;

writeln ('Simple = ', Simple[simple_n]:4) ;

end;

end;

for i : = 1 to res_n do

write (Res[i]:4) ;

End.