тема: "Множества"

[Настена95]

помогите пожалуйста

Известны марки машин, изготовляемых в данной стране и импортируемых за рубеж. Даны некоторые N стран. Определить для каждой из марок, какие из них были доставлены в некоторые из стран.

[Stilet]

Хы...

type
  Country= set of (Russia,America,Deutschland);
var
  N,vaz,zaz:Country;

begin
 vaz:=[Russia,America];
 zaz:=[Russia,Deutschland];
 N:=[Russia];
 if N <= vaz then Write('Zaz yes')
 if N <= zaz then Write('Vaz yes')
 readln;
end;

Подходит в качестве идеи?
Р.S. Не проверял.