Nhập 2 xâu kí tự từ bàn phím kiểm tra xem xâu 2 có nằm trong xâu 1 hay không, nếu có thì chỉ ra vị trí xuất hiện đầu tiên mà xâu 2 nằm trong xâu 1 và số lần xuất hiện của xâu 2 vd nhập xâu 1 là "abcdefcd", xâu 2 là "cd" thì thông báo xâu 2 nằm trong xâu 1 và vị trí đầu tiên xuất hiện là 3, xuất hiện 2 lần

uses crt;
var vt:array[1..10000] of longint;
    s,st:ansistring;
    i,x,d:longint;
begin
clrscr; 
readln(s);
readln(st);
while pos(st,s)<>0 do
 begin
  d:=d+1;
  vt[d] := pos(st,s);
  delete(s,pos(st,s),length(st));
 end;
writeln(vt[1],#32,d);
readln;
end.

uses crt;
var vt:array[0..10000] of longint;
    s,st:ansistring;
    i,x,d:longint;
begin
clrscr; 
readln(s);
readln(st);
while pos(st,s)<>0 do
 begin
  inc(d);
  vt[d] := pos(st,s);
  delete(s,pos(st,s),length(st));
 end;
writeln(vt[1],#32,d);
readln;
end.