сформировать множество LB, в которое входят только большие латинские буквы

[программирование]

сформировать множество LB, в которое входят только большие латинские буквы, которые встретились у входного рядка, и множество PR, в которое входят только знаки препинания (точка, запетая, тире, точка с запетой.....). организовать ввод рядков до нажимания клавиши Esc.

язык оригинала задачи

Сформувати множину LB, в яку входять тільки великі латинські букви, що зустрілися у вхідному рядку, и множину PR, в яку входять тільки знаки пунктуації. Організувати введення рядків до натискання клавіші Esc.

[Stilet]

Ну ты хотя бы покажи код как вводишь исходное множество.

[программирование]

Під множиною в мові Паскаль розуміють обмежений, невпорядкований набір різних елементів однакового типу. Множина без елементів називається порожньою.

Всій множині в цілому надається ім'я. Тип елементів, що входять до множини, називається базовим. В якості базового типу можна використовувати прості типи: стандартні (крім real), перелічуваний та обмежений.
Множини повинні бути оголошеними або в розділі Var, або Type.
Var <ім'я множини> Set of <базовий тип>;
Наприклад:

Var Rik: set of 1880..2000; C: set of char;
Оголошення множини у розділі типів Type:
Type <ім'я типу> = Set of <базовий тип> ;
Var <ім'я множини>:  <ім'я типу>;

Значення змінних і констант множини задаються в розділі операторів за допомогою конструктора. Конструктор представляє собою список елементів базового типу, заключний у квадратні дужки.
Наприклад:

Фігура:= [ромб];       Фігура:= [круг, ромб, квадрат];
 М1:=[‘A’, ‘B’,’C’];   М2:=[1, 3, 2, 5];   М3:=[ ]; - порожня множина

.


Всій множині в цілому надається ім'я. Тип елементів, що входять до множини, називається базовим. В якості базового типу можна використовувати прості типи: стандартні (крім real), перелічуваний та обмежений.
Множини повинні бути оголошеними або в розділі Var, або Type.
Var <ім'я множини> Set of <базовий тип>;
Наприклад:

Var Rik: set of 1880..2000; C: set of char;
Оголошення множини у розділі типів Type:
Type <ім'я типу> = Set of <базовий тип> ;
Var <ім'я множини>:  <ім'я типу>;

Значення змінних і констант множини задаються в розділі операторів за допомогою конструктора. Конструктор представляє собою список елементів базового типу, заключний у квадратні дужки.
Наприклад:

Фігура:= [ромб];       Фігура:= [круг, ромб, квадрат];
 М1:=[‘A’, ‘B’,’C’];   М2:=[1, 3, 2, 5];   М3:=[ ]; - порожня множина.

Є три множини символьного типу, задані своїми конструкторами:
Y1=[‘A’, ‘B’, ‘D’, ‘R’, ‘M’]; Y2=[‘R’, ‘A’, ‘H’, ‘D’]; Y3=[‘A’, ‘R’]
Сформувати нову множину X =(Y1 ∩ Y2) U (Y1 \ Y2). Вивести на екран множину Х. Перевірити, чи включена множина Y3 до множини Х.

Program Mnog;|
Var Y1, Y2, Y3, X: set of char;      c: char;
Begin
    Y1:=[‘A’, ‘B’, ‘D’, ‘R’, ‘M’];    Y2:=[‘R’, ‘A’, ‘H’, ‘D’];   Y3:=[‘A’, ‘R’];
    X :=(Y1 * Y2) + (Y1 - Y2);
   Write (‘Множина Х’);
   For c:=’A’ to ‘R’ do   if c in X then Write  (c ); Writeln;
  if  Y3<= X then Write (‘Y3 включена в X’) else Write (‘Y3 не включена в X’);
 End.