Структуры данных, множество. Опции

[gamordzhoba]

дана задача, и она ни фига не получается. help me please.
Реализуйте структуру данных множество для чисел от 0 до 10^8. Множество должно поддерживать операции INSERT(x) (добавить элемент x), FIND(x) (проверить наличие в множестве элемента x) и ERASE(x) (удалить из множества x).

Входные данные
В первой строке записано целое N (1 <= N <= 10^6) -- количество операций. Далее записаны сами операции парами чисел P, x (P обозначает номер операции). P = 0 для INSERT(x), P = 1 для FIND(x), P = 2 для ERASE(x).

Выходные данные
Для каждой операции FIND(x) выводите TRUE если элемент найден и FALSE в противном случае.

Пример

Ввод

8
0 0
0 3
1 1
0 1
1 1
1 0
2 0
1 0


Вывод

FALSE
TRUE
TRUE
FALSE

[volvo]

Имеешь в виду вывод в файл?

begin
   assign(input,'ga.in');
   reset(input);

   assign(output,'ga.out');
   rewrite(output);

   fillchar(BSet,sizeof(BSet),0);
   readln(n);
   for i := 1 to n do
      begin
         readln(k,x);
         case k of
          0 :AddElement(x);
          1 :writeln(output, FindElement(x));
          2 :RemoveElement(x);
         end;
      end;
end.

или тебе что-то другое? Уточняй сразу, почему все надо клещами вытягивать?