Множества, определение пересечения множеств Опции

[Azart]

Помогите! Нужно срочно решить задачу:

"Определить пересечение множеств, введенных с клавиатуры."

Спасибо всем!

[volvo]

мне выдается сообщение об ошибке :-(

var { CONST здесь, блин, сколько можно? Раздел называется ЗАДАЧИ, а не 32-бита!!! }
  a : Tset = [1,255,3,4,5];
  b : TSet = [2, 3, 5];