Promedio.. digitos primos ..

[ecfisa]

Hola.

La ayuda de Delphi (F1) dice:

Returns the value of X rounded to the nearest whole number.

Unit
System

Category
arithmetic routines

Delphi syntax
function Round(X: Extended): Int64;

Description
In Delphi, the Round function rounds a real-type value to an integer-type value.

X is a real-type expression. Round returns an Int64 value that is the value of X rounded to the nearest whole number. If X is exactly halfway between two whole numbers, the result is always the even number. This method of rounding is often called "Banker’s Rounding".

If the rounded value of X is not within the Int64 range, a runtime error is generated, which can be handled using the EInvalidOp exception.

Note:The behavior of Round can be affected by the Set8087CW procedure or SetRoundMode function.

Es decir que devuelve el valor de x(real), redondeado al número entero más próximo, necesario en ese caso, por ser 'r' una variable de tipo entera.

Saludos.