Wenn Du immer Integer Zahlen hast, dann gibt es eine einfache Möglichkeit
DIV.
Delphi-Quellcode:
var
A, B, Res: Integer;
begin
A := 81;
B := 2;
Res := A div B;
...
Ansonsten, wenn es genua um
2, dann auch:
Delphi-Quellcode:
var
A, Res: Integer;
begin
A := 81;
Res := A shr 1;
...
...
...