TIMCHUOI.PASVAR S,S1

1. Timchuoi.pas

var s,s1:string;

begin

readln(s);

readln(s1);

while pos(s1,s)>0 then

begin

write(pos(s1,s):4);

s[pos(s1,s)]:=chr(1);

end;

readln;

end.