var s : set of char; n :

var s : set of char; n : char; begin writeln (‘введите последовательность символов’); s : = [ ]; while true do begin readln ( n ); if n = ’z’ then Exit; s: =s+[ n ] end; for n : =’a’ to ‘z’ do if n in s then writeln (n) end.

var s : set of char; d: char; … begin … s : = [‘A’, ’L’, ‘P’, ‘T’, ‘a’, ‘l’, ‘p’, ‘t‘]; repeat writeln (‘ввести символ’); readln (d); until d in s; …

Program prim_1; Var N 6: set of byte; {множество чисел, делящихся на 6} N 23: set of byte; {множество чисел, делящихся на 2 и 3} k: byte; {параметр цикла } Begin N 6 : = [ ]; {"обнуление" множества N 6} N 23 : = [ ]; {"обнуление" множества N 23} { формирование множеств} for k : = 1 to 20 do begin if k mod 6 = 0 then N 6 : = N 6 + [ k ]; if (k mod 2 = 0) or (k mod 3 = 0) then N 23 : = N 23 + [ k ]; end;

Program prim_2; Var s: string; m: set of char; k: integer; flag: boolean; Begin { формирование контрольного множества символов } m : = [ '0'. . '9', 'A'. . 'Z', 'a'. . 'z', ' ']; { ввод строки } Writeln(' Введите строку: '); Readln(s);