Мне кажется, что должно быть так:
Если в задаче требуется найти количество элементов в множестве y, то это можно сделать так:
y:=(x2*x3)-((x1*x2)+(x1*x3));
S:=0;
For i:=1 to 100 do
if (i in y) then
begin
writeln('элемент ',i,' входит в множество');
s:=s+1;
end;
Writeln('Мощность y:',S);
Множество Р для этого не нужно!
Есть типы лицензий для бесплатно распостранняемых програм:
<span>Trial Software - "тральные" на жаргоне, программы с бесплатным пользованием на протяжении какого-то срока, после чего он блокируется и появляется необходимость её купить.
</span><span>Non-Commercial Use - бесплатное пользование, при условие не комерчиского использования, т.е. для часных нужд. (пример: программа для бухгалтерии можно распостранять платно для предприятия, но бесплатно для частного лица, желающего менеджить свои доходы/расходы)
</span><span>Shareware - покупка не обязательна, покупка как благотворительный взнос, но зачастую такие программы часто "напоминают" о наличии функции их купить.
</span><span>Open Source - программы бесплатны для пользования по какой-либо лицензии от производителя, с открытым исходным кодом, открыты для модификации и не редко с возможностью принять участее в процессе разработки.</span>