Пример применения множеств в Паскале

Задача. Сформировать и вывести на экран множество из n символов латинского алфавита (n<20). Если вводимая буква уже есть в множестве, выдать соответствующее сообщение.

Program Mnog_Sim;
Const
N=20;
Var
S : Set Of Char;
B : Char; I : Integer;
Begin
S := [];
For I:=1 To N Do
Begin
Writeln (’Введите букву’); Readln(B);
If B In S Then
Writeln(’Буква ’,B,’ уже есть’)
 Else
S:=S+[B];
End;
Writeln(’Буквы, входящие в множество’);
For B:=’A’ To ’z’ Do
If B In S Then
Write(B:2);
End.

Замечание. Обратите внимание, что вводимые буквы могут быть и прописными, и строчными, поэтому при выводе в цикле For параметр цикла принимает все значения для букв латинского алфавита от A до z.