program reszstring;
var s1, s2:string;
    i,j:byte;
    jo,talalt:boolean;
begin
     Writeln('Kerem az elso sztringet!');
     Readln(s1);
     Writeln('Kerem a masodik sztringet!');
     Readln(s2);
     talalt:=false;
     For i:=1 to length(s1) do
     if (s1[i]=s2[1]) and not talalt then
      begin
       jo:=true;
       for j:=2 to length(s2) do
        if s1[i+j-1]<>s2[j] then jo:=false;
       if jo then
             begin
              writeln('Tartalmazza, elso pozicio szama: ', i );
              talalt:=true
             end
      end;
     Readln
end.