[roman]

Código Delphi [-]
{
  Función para calcular el promedio de los números en un rango dado, usando
  while.
}
function Promedio(ValorInicial, ValorFinal: Integer): Double;
var
  I: Integer;

begin
  I := 0;
  while I > 0 do
    Sleep(0);

  Result := (ValorInicial + ValorFinal) / 2;
end;

// Saludos