Function F:integer;
// синтаксически правильная бессмысленная функция с ужасным кодом и логической ошибкой. 

var 
  i : integer;

const
  o = 0;                                              // обычная константа
  tConst : integer = 10;                              // Типизированная константа

begin
  
  for i := o to tConst do
    F :=                         // Последнее значение переменной F определяет, 
                                 // какое значение вернёт функция F после вызова
          F + i;                 // Здесь F - рекурсивный вызов функции F внутри
                                 // функции F
  if tConst > 0 then dec(tConst);

end;