Даны три множества X1, X2, X3, содержащие целые числа из диапазона [1..100]., Сформировать новое множество Y= (X1X2)  (X2X3) Опции

[-lastarmyman-]

Даны три множества X1, X2, X3, содержащие целые числа из диапазона [1..100]. Сформировать новое множество Y= (X1X2)  (X2X3), из которого выделить подмножество чисел, кратных 6.
Помогите плиз...

[Atos]

в последнем цикле ты begin end забыл. А так, вроде, правильно.
{цикл while, который предлагал volvo, более оптимален по времени, но в данном случае это не критично}