mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 04:59:29 +01:00
21 lines
257 B
ObjectPascal
21 lines
257 B
ObjectPascal
var
|
|
i: word;
|
|
j: integer;
|
|
Begin
|
|
i:=65530;
|
|
i:=i+1; { CF check }
|
|
i:=i-1;
|
|
i:=i*5;
|
|
i:=i/5;
|
|
i:=i shl 5;
|
|
i:=i shr 5;
|
|
Inc(i); { no check }
|
|
j:=32765; { OV check }
|
|
j:=j+1;
|
|
inc(j);
|
|
j:=j-1;
|
|
j:=j*5;
|
|
j:=j div 5;
|
|
j:=j shl 5;
|
|
j:=j shr 5;
|
|
end. |