{$e err.log.text}
program errs;

   type
      p = ^nowhere;

   var
     ch: char;
     i: integer;
   {$p}
   procedure proc; forward;

   begin
      read(ch);
      i := a+b++c+d++e+f++g+h+i+j+k+l+m+n;
      goto 1;
      i := .1;
   end;

