TurboPascal: реализация операции умножения множеств

[ulala]

Приветики, всемогущие программисты!
Помогите кто чем может!
Задание:
1. Реализовать операцию умножение множеств.
2. Выполнить пример: А*В (множество А умножить на множество В), где
А={'1', '2', '5', '7'}
B={'a','b',..,'g'}
3. Сформировать подмножество С [символ включения] А*В, проверить вхождение его в множество А*В.

Я знаю что для вас такая задача семечки!
Надеюсь Вы мне поможете!
Заранее огромное спасибо!

[ОДИНОЧЕСТВО В СЕТИ]

* в множествах это пересечение а не умножение

и что будет в множестве С если A={'1','2','3'} а B={'a','b'}?

[ulala]

*-это пересечение, верно, но препод так написал на доске "чтобы вам понятнее было" а опеация именно умножение.
Результат А*В будет такой:
{1а,1b,1c,1d,1e,1f,1g,2a,2b,2c,2d,2 e,2f,2g,5a,5b,5c,5d,5e,5f,5g,7a,7b, 7c,7d,7e,7f,7g}

[ulala]

я сначала написала программу просто как 2 цикла с параметром и чтобы просто был вывод по очереди двух элементов, а он разорался что это неправильно, что надо чтобы программа считала, а не выводила...

[ОДИНОЧЕСТВО В СЕТИ]

я не знаю как затолкать 2 символа как 1 элемент во множество
имхо тут проще 3 массивами обойтись

[ulala]

и как это сделать?

[ОДИНОЧЕСТВО В СЕТИ]

 var A , B: array [1..20] of char;
 C: array [1..400] of string;
....
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to m do
readln(c[i]);
for i:=1 to n do
for j:=1 to m do
begin
s:=a[i]+b[j]
c[i]:=s;
end;
...
end.

[ulala]

Спасибо огромное солнышко :-*
Желаю чтобы у тебя всё было лучше всех
Ты супер, знай это