program Vvod_Vivod;

var

  i, n,z: integer;
  f, t: text;
  l, k: string;

begin
z:=1;
assign(t, 'd:\input.txt');
  reset(t);

  assign(f, 'output.txt');
  reset(f);

Repeat
   readln(t, l);
   readln(f, k);
if length(l)<length(k) then
repeat
l:=l+' ';
until(length(l)=length(k));
if length(l)>length(k) then
repeat
k:=k+' ';
until(length(k)=length(l));
    for i:=1 to length(l) do
    begin
      if not(l[i] = k[i]) then
      begin
        n := i;
        break;
      end
      else n:=0;
    end;
    If n>0 then
  writeln('В ', z, ' строке отличие начиная с ', n:2, ' элемента')
  else writeln('В ' , z, ' строке отличий нет');
 z:=z+1;
 Until Eof(t) and Eof(f);
 close(t);
 close(f);
end.