{ %fail } function f(b:byte):byte; begin f:=chr(b)-chr(24); end; begin end.