fpc/tests/webtbs/tw15015.pp

program tget2;

var
  a, b: LongWord;
  
begin
  a := 307;
  b := 1 + ($FFFFFFFF mod (a - 2));
  writeln(b);
  if b <> 301 then Halt(1);
  writeln(1 + $FFFFFFFF mod (a - 2));
  if b <> 301 then Halt(1);
end.