program TimViTriXuatHien;
uses crt;

var
  s1, s2: string;
  viTri: integer;

begin
  clrscr;
  write('Nhap vao xau s1: ');
  readln(s1);
  write('Nhap vao xau s2: ');
  readln(s2);

  viTri := pos(s1, s2);
  if viTri > 0 then
    writeln('Xau s1 xuat hien trong xau s2 tai vi tri: ', viTri)
  else
    writeln('Xau s1 khong xuat hien trong xau s2');

  readln;
end.