Program mn_4-
uses crt-
type let=’ -а’..’я’-
var sogl:set of let-
text: set of char-
c:char-
s:string-
i:byte-
begin
writeln(‘введите текст, заканчивающийся — точкой’)-
readln(s)-
if s[length(s)]<->-‘.’ then s:=s+’.’-
text:=[]-
sogl :=[‘п’,’ф’,’х’,’т’,’с’,’к’,’ч’,’ш’,’щ’,’ц’]-
repeat
if s[i] in sogl then text:=text+[s[i]]-
i:=i+1-
until s[i]=’.’-
for c:=’a’ — to ‘я’ do if c — in sogl-text then write(c)-
readln-
end.