uses crt-

varx,x1,i,c,dl,ch,n:integer-

word,word1,k:string-

label 1-

begin

clrscr-

writeln(‘Введите первое слово’)-

readln(word)-

writeln(‘Введите второе слово’)-

readln(word1)-

dl:=length(word1)-

k:=copy(word,1,1)-

ch:=0-

n:=pos(k,word1)-

1:if n&gt-0 then

begin

ch:=ch+1-

Delete(word1,1,n)-

dl:=length(word1)-

if dl&gt-0 then

begin

n:=pos(k,word1)-

goto 1-

end

end-

writeln(‘Во втором слове буква ‘,k,’ встречается’,ch,’ раз(а)’)-

end.