fpcsrc/tests/webtbs/tw15015.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

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.