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)]&lt-&gt-‘.’ 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.