procedure p1(f: real-> real) := exit;

begin
  p1(r ->
  begin
    try
      Result := r;
    except
    end;
  end);
end.