[zip000]

Код:

var
  i : Integer;
  r : Real;
................
i := Round(r);