[navy][i]// for automatic syntax highlighting see faq102-6487
[/i][/navy][b]var[/b]
i : Integer;
r : Real;
[b]begin[/b]
i := Trunc(r); [navy][i]// discard everything after decimal point
[/i][/navy] i := Round(r); [navy][i]// to round to next integer
[/i][/navy] r := i; [navy][i]// convert to a real
[/i][/navy][b]end[/b];