program sch;
procedure search(var cnt:integer;var FromF,pattern:string);
var bb:byte;
begin
bb:=pos(pattern,fromf);
while bb0 do
begin
delete(fromf,pos(pattern,fromf),length(pattern));
cnt:=cnt+1;
bb:=pos(pattern,fromf)
end;
end;
var slovo,tmp:string;
f1:text;
count:integer;
begin
readln(slovo);
assign (f1,’File1.txt’);
reset(f1);
while not eof(f1) do
begin
readln(f1,tmp);
search(count,tmp,slovo);
end;
writeln(count);
close(f1);
end.