program slova;
var s,sl:string;
k,i:integer;
begin write('Vvedite tekst:');
readln(s);
write('Vvedite slovo: ');
readln(sl);
k:=0;
while pos(sl,s)>0 do
begin k:=k+1;
delete(s,pos(sl,s),length(sl));
end;
writeln('Slovo v danom tekste vstre4aetsia ->',k, 'raz');
end.