Дано множество А, напечатать четные элементы, входящие в другое множество (Паскаль)

[Марийка92]

type mn=set of 0..100;
var    A:mn;
       i,k,n:0..100;
procedure poisk (var letters: mn; var A:mn);
begin
A:=[];
write('Введите колличество');
read(k);
for i:= 1 to k do
begin
write ('Введите элемент<=100');
read(n);
A:=A+[n];
end;
 letters:=[0..100];
 for i:= 100 downto 0 do
 if (i in A) and (i mod 2=0) and letters then
 write(i, ' ');
  end;
end.

Пусть задано множество А, напечатать в порядке убывания все четные элементы этого множества, входящих в множество letters=[0..100].

что было упущенно в написание программы?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Fissa]

Переформатировала всё, иначе ничего не пойму.
Вот готовая прога:

uses crt;
type
    mn=set of 0..100;
var
   A, letters: mn;
   i, k, n: 0..100;

begin
     A:=[];
     write('Введите колличество: ');
     readln(k);
     for i:= 1 to k do
         begin
              write ('Введите элемент (<=100): ');
              readln(n);
              A:=A+[n];
         end;
         letters:=[0..100];
         for i:= 100 downto 0 do
             if (i in A) and (i mod 2=0) and (i in letters) then
                write(i, ' ');
     readln();
end.

[Вадим Мошев]

Одна из ошибок кроется здесь:

if (i in A) and (i mod 2=0) and letters then

при этом

letters:=[0..100];

То есть у вас получается: Если <Логическое выражение> И <Логическое выражение> И <множество>
Ошибка: несоответствие типов

[Serge_Bliznykov]

Вадим Мошев, +1

а исправить очень легко:

 if (i in A) and (i mod 2=0) and (i in letters) then

кстати, при такой постановке вопроса:

type mn=set of 0..100;

проверка на вхождение в множество letters =[0..100] вообще бессмысленна!
У этих множеств полностью совпадает диапазоны - поэтому в A нельзя ввести число, которое не входило бы в множество letters
сделайте, хотя бы, множесто mn = set 0..220, что ли...
ну и последнее.

в коде в качестве границ множества ГОРАЗДО лучше (и нагляднее, и надежнее, и гибче) писать не 100 и 0, а High(Множество) и Low(Множество)
например:

 for i:= High(A) downto Low(A) do

[Марийка92]

спасибо всем, учту все в следующей программе.