i := 0;
repeat
  if (i > 100) then goto FAR_SEND;
  understand := parse(   http://vif2ne.ru/nvz/forum/2/co/140881.htm );
  inc(i);
until (understand);

writeln ("Любитель попов спорит сам с собою...");