Ребята (господа/товарищи/...), прошу помоч мне.
Я написал програмку (довольно простую), а она не работает
Я разместил её в этот раздел потому что она теоритическая (а не практическая) и должна помоч понять роботу с множествами.

type
    q110 = set of 1..10;
    q515 = set of 5..15;
    i = set of 1..150;
VAR
    a1a10 : q110;
    a5a15 : q515;
    res : i;
    w:integer;
BEGIN
    a1a10 := [1..10];
    a5a15 := [5..15];
     res := a1a10 + a5a15;
     for w := 0 to 150 do 
     if w in res then WriteLn( i );
END.

!

В следующий раз пост без тегов удалю!

Ну во-первых, неужели настолько лень взять свой код в теги?

Во-вторых, что ты хотел сделать?

Это?

type
    q110 = set of 1..10;
    q515 = set of 5..15;
    i = set of 1..150;
var
    a1a10: q110;
    a5a15: q515;
    res: i;
    w:integer;
Begin
  a1a10:= [1..10];
  a5a15:= [5..15];
  res:= a1a10 + a5a15;
  for w := 0 to 150 do
      if w in res then writeln(w);
  readln;
end.

PS загляни сюда: Множества

прошу прощения, забыл

А за помощ искреннее СПАСИБО