Составить определения понятий диск- флэш память-

Флеш память-  разновидность   технологии электрически перепрограммируемой памяти. диск смотря какой компакт диск или жесткий диск который в компе.

Var m1,m2,m3,m4,m5: set of char; c: char; begin m1: =['0'..'9']; m2: =['.',',',': ','? ','! ','; ']; m3: =['a'..'z']; m4: =m1*m2*m3; m5: =m1+m2+m3; writeln('пересечение множеств: '); for c: =chr(32) to chr(255) do   if c in m4 then write(c: 2); writeln; writeln('объединение множеств: '); for c: =chr(32) to chr(255) do   if c in m5 then write(c: 2); writeln; end. результат: пересечение множеств: объединение множеств:   ! , . 0 1 2 3 4 5 6 7 8 9 : ; ? a b c d e f g h i j k l m n o p q r s t u v w x y z

Думаю так попроще, хотя не уверенна сработает ли foreach //pascalabc.net 3.1 сборка 1239 var       m1, m2, m3: set of char;       c: char; begin       m1 : = ['0'..'9'];       m2 : = ['.', ',', ': ', '? ', '! ', '; '];       m3 : = ['a'..'z'];       writeln('пересечение множеств: ');       foreach c in (m1 * m2 * m3) do               write(c, ' ');       writeln;             writeln('объединение множеств: ');       foreach c in (m1 + m2 + m3) do               write(c, ' ');       writeln; end.