Program mn_7-

uses crt-

type let=’ -а’..’я’-

var sogl:set of let-

s:string-

I,k:byte-

begin

writeln(‘введите текст, заканчивающийся — точкой’)-

readln(s)-

if s[length(s)]&lt-&gt-‘.’ then s:=s+’.’-

sogl :=[‘п’,’ф’,’х’,’т’,’с’,’к’,’ч’,’ш’,’щ’,’ц’, ‘б’,’в’,’г’,’д’,’ж’,’з’,’л’,’м’,’н’,’р’]-

i:= length(s)-

while s[i]&lt-&gt-‘ — ‘ do begin -if s[i] in sogl then k:=k+1- i:=i-1-end-

writeln(k)-

readln-

end.