Нужно описать,каждую строчку этой программы program p1; type mytype=set of char; var m,n,g: mytype; w,s: string; i,k: integer; begin m: =['a'..'f']; n: =['x'..'z']; g: =m+n; writeln('введите строку'); readln(s); writeln('новая строка'); for i: =1 to length(s) do if (s[i] in g) then write(s[i]); writeln; end.