<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqInteger('Вводите:', 15)
.Where(t -> t.InRange(1, 14)).Sum.Println
end.
Var
a, b, c: longint;
begin
readln(a, b);
c := a - b;
if (c > b) then
writeln('Валя собрала на ', c - b, ' кг клубники больше чем Вера.');
if (c < b) then
writeln('Вера собрала на ', b - c, ' кг клубники больше чем Валя.');
if (c = b) then
writeln('Девочки собрали одинаковое количество клубники.');
end.
8.
Так как при x∈Р и х∉Q, т.е. на промежутках [3;6] и [12;20], не зависимо от промежутка А функция будет равна 1.
Остается вторая часть, т.е. х∉А (или иначе ¬(х∈А)). Значит А должно совпадать либо с промежутком <span>[3;6], либо с [12;20]. Первый промежуток имеет длину 3, второй - 8. Выбираем наибольший, т.е. 8.</span>