uses crt; var d:text; s,s1,h:string; i:longint; begin clrscr; assign(d,'input.pas');reset(d); readln(d,s); readln(d,s1); for i:=1 to length(s) do h:=h+' '; close(d); assign(d,'output.pas');rewrite(d); repeat i:=pos(s,s1); writeln(d,i); delete(s1,i,length(s)); insert(h,s1,i); until pos(s,s1)=0; close(d); end.
