[roman]

No sé si el profesor se tomará a mal esto:

Código Delphi [-]
function Promedio(ValorInicial, ValorFinal: Integer): Double;
var
  BeStupid: Boolean;

begin
  Result := 0;
  BeStupid := true;

  while BeStupid do
  begin
    Result := (ValorInicial + ValorFinal) / 2;
    BeStupid := false;
  end;
end;

// Saludos