var
k:integer;
s1,s2:string;
begin
k:=0;
writeln('vvedite stroku s1');
readln(s1);
writeln('vvedite stroku s2');
readln(s2);
while pos(s2,s1)<>0 do
begin
delete(s1,pos(s2,s1),length(s2));
inc(k);
end;
writeln(k);
end.
var
k:integer;
s1,s2:string;
begin
k:=0;
writeln('vvedite stroku s1');
readln(s1);
writeln('vvedite stroku s2');
readln(s2);
while pos(s2,s1)<>0 do
begin
delete(s1,pos(s2,s1),length(s2));
inc(k);
end;
writeln(k);
end.