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

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,' ');
  Writeln
end.

Результат выполнения программы:
11 19 17