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)]<->-‘.’ then s:=s+’.’-
sogl :=[‘п’,’ф’,’х’,’т’,’с’,’к’,’ч’,’ш’,’щ’,’ц’, ‘б’,’в’,’г’,’д’,’ж’,’з’,’л’,’м’,’н’,’р’]-
i:= length(s)-
while s[i]<->-‘ — ‘ do begin -if s[i] in sogl then k:=k+1- i:=i-1-end-
writeln(k)-
readln-
end.