Заполнить массив из 10 элементов значениями из диапазона (3:13). Найдите сумму элементов.

ответы на это задание могут быть любыми, в зависимости от того, по какому признаку вы будете сравнивать объекты.

1)    щука, карась, окунь, рак (не рыба);
2)    ромашка, ландыш, сирень (кустарник, а не трава), колокольчик;
3)    Саша, Лена, Коля, Маша, Егорова (не имя);
4)    ветка, листок, яблоко, цветок, птичка (живая);
5)    заяц, волк, кабан, лось, овца (женский род); 
6)    ухо, лицо, нос, язык (не снаружи), глаз;
7)    рысь, медведь (не кошачьи), тигр, лев, кошка;
8)    шайба, коньки, качели (не относится к хоккею), клюшка;
9)    гусь, лебедь, павлин, курица, кролик (не птица);
10)    пот, потолок (всё остальное связано с потом), потливый, запотевший;
11)    горе, нагорный (всё остальное связано с горем), горевать, горемыка;
12)    Тибет, Кавказ, Альпы, Байкал (озеро, а не гора);
13)    Россия, Франция, Петербург (не страна), Китай;
14)    Африка, Индия (не материк), Австралия, Южная Америка;
15)    диван, кровать, тетрадь (не мебель), шкаф, парта;
16)    дряхлый, старый, изношенный, маленький (остальное - синонимы), ветхий;
17)    молоко, сыр, сливки, сметана, сало (не связано с молоком);
18)    подлежащее, глагол (не член предложения), дополнение, определение;
19)    пять (остальные - существительные), пятерка, пятерня;
20)    четырехугольник (слово с двумя корнями, остальные с одним), четыре, четверка;
21)    ножницы, дрожжи (не предметы обихода), щипцы, башмаки;
22)    брюки, хлопоты (остальное - предметы), дверцы, вилы;
23)    дебри, прения, игры (только у этого слова есть единственное число), шахматы;
24)    носок, мозоль (женский род, у остального - мужской), георгин, помидор;
25)    магистраль, вестибюль (не женский род), бандероль, лазурь;
26)    озимь, цитадель (3 слога, а не 2), фланель, панцирь;
27)    подстаканник, подорожник (нет приставки под-), подснежник, подлокотник;
28)    текст, число, график (второй звук согласный, у остальных - гласный), бумага;
29)    клавиатура, джойстик, сканер, принтер (не средство ввода);
30)    монитор, графопостроитель, принтер, мышь (не средство вывода);
31)    винчестер, дискета, компакт-диск, процессор (не ПЗУ);
32)    обработка, хранение, калькулятор (не информационный процесс), передача. 

Var used: Set of Char;
    s1, s2: string;
    i: integer;
    done: boolean;
    c: char;

function IsLetter(c: char): boolean;
begin
  IsLetter := ((c >= 'a') and (c <= 'z')) or ((c >= 'A') and (c <= 'Z'));
end;

function UpperCase(c: char): char;
begin
  if (c >= 'a') and (c <= 'z') then
    UpperCase := Chr(Ord(c) - Ord('a') + Ord('A'))
  else
    UpperCase := c;
end;

begin
used := [];

readln(s1);
readln(s2);

for i := 1 to length(s1) do
  if (IsLetter(s1[i])) then
    include(used, UpperCase(s1[i]));

for i := 1 to length(s2) do
  if (IsLetter(s2[i])) then
    include(used, UpperCase(s2[i]));

done := False;
for c := 'A' to 'Z' do
  if not (c in used) then
  begin
    done := True;
    write(c);
  end;

if not done then
  write(0);

writeln;
end.