Strict Standards: Declaration of action_plugin_importoldchangelog::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/lib/plugins/importoldchangelog/action.php on line 8 Strict Standards: Declaration of action_plugin_importoldindex::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/lib/plugins/importoldindex/action.php on line 0 Deprecated: Function split() is deprecated in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 154 Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 456 Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 456 Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 453 Strict Standards: Only variables should be passed by reference in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/doku.php on line 71 index_podretezce 
 
function indexPodretezce(retezec, podretezec: string): integer;
var
  zacatek: integer;
  indexRet, indexPodret: integer;
  nachaziSeTu: boolean;
begin
  for zacatek := 1 to length(retezec) - length(podretezec) + 1 do begin
      indexRet := zacatek;
      indexPodret := 1;
 
      nachaziSeTu := true;
      while indexPodret <= length(podretezec) do begin
          if retezec[indexRet] <> podretezec[indexPodret] then
              nachaziSeTu := false;
          inc(indexRet);
          inc(indexPodret);
      end;
 
      if nachaziSeTu then begin
          indexPodretezce := zacatek;
          exit;
      end;
  end;
 
  indexPodretezce := 0;
end;
 
var
  retezec, podretezec: string;
begin
  readln(retezec);
  readln(podretezec);
  writeln(indexPodretezce(retezec, podretezec));
end.