Вывести на экран нечетные элементы числового множества, которое является разностью двух других множеств.

Наврал, исправлю. Не заметил в условии НЕЧЕТНОГО

Должно быть тогда foreach n in s3 do if (n mod 2)<>0 then Write(n,' ');

И в контрольном решении не будет чисел 16, 2, 18.

спасибо) это я сама заметила и исправила)

Вы-то исправили, но здесь тоже должно быть верное решение

const  s1=[2..7,9,11,14..19];  s2=[3..9,12..15];var  s3:set of byte;  n:byte;begin  s3:=s1-s2;  foreach n in s3 do if n mod 2<>0 then Write(n,' ');  Writelnend.Результат выполнения программы:11 19 17