program hw5 ;

uses crt;

var 

	cur_symb,symb_of_end,j,y	:	char;
	mn							:	set of char=['!'..'.'];
	v_mnoj						:	set of char=['!'..'.'];

BEGIN
	clrscr;
	cur_symb:='!';
	symb_of_end:='.';
	mn:=[];

	
	writeln('Введите символ указывающий на конец строки.');
	readln(symb_of_end);
	
	v_mnoj:=['!'..'.'];
	writeln('Введите множество символов.');
	while cur_symb<>symb_of_end do begin
		read(cur_symb);
		if cur_symb in v_mnoj then mn:=mn+[cur_symb];
		
	end;
	writeln('В множестве содержатся:');
	writeln('знаки препинания:');
	for j:='!' to '.' do
		if j in mn then writeln(j);	

	
END.